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METHOD AND APPARATUS FOR DISPLAYING 
DATA STORED IN LINKED NODES 

This application claims the benefit of U.S. 
Provisional Application No. 60/135,740, filed on 
May 25, 1999. 
FIELD OF THE INVENTION 

The invention is a computer implemented method 
of storing, manipulating, accessing, and displaying 
data and its relationships, and a computer system 
(with memory containing data) programmed to implement 
such method. 

BACKGROUND OF THE INVENTION 

Today's GUI (graphical user interface) software 
requires a great deal of training for proficiency. 
They rarely show their context and rarely show 
internal data and control points. The actions of 
applications should be fast and easy to use, not 
confusing and restrictive. 

Shortcomings of current technologies include the 
following : 

Awkward Navigation: Navigating a current GUI is 
to learn how the programmers have organized the data 
and the control points. Today 1 s UI (user interface) 
relies on windows and pull -down menus which hide 
prior ones as the user makes selections, and an 
often-complex series of mouse selections to navigate 
to the desired control point. In performing an 
action after traversing a path of pull -down menus and 
button selections on different sub-windows, the user 
may be returned to the beginning, forced to retrace 
their steps if they wish to apply an action 
re p ea tedly. The UI does not shift from one state to 
another in a smooth way. 
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Relationships are Invisible: Current GUI's with 
pop-up menus and layers of text-based windows. 
Today's GUI's suffer from a list mentality: rows of 
icons with little or no meaning in their position, no 
5 relationships readily visible between themselves or 

to concepts which the user may be interested in or 
have knowledge of. 

The standard GUI concept of a canvas with 
buttons and pull -downs require reading and thinking 

10 about the meaning of text to, hopefully, grasp the 

model of control flow. Virtually no information is 
given outside of static text to help the user 
understand relationships and control points. 

Access to Crucial Data is Confusing : Gaining 

15 access to fields or parameters in current 

applications can also be a challenge. For example, 
the Microsoft POP mail retrieval service uses a 
configuration profile defined by the user to access 
the mail server, and displays the name of that 

20 configuration when logging. Although one sees 

evidence of the existence of this configuration, how 
does one change it? The answer may not be obvious. 
An object-oriented system that implemented all 
actions on an object could also provide the mechanism 

25 of self -deletion, but this helps only if the object 

itself is visible and accessible via the GUI. This 
is what DataSea does. Windows technology is moving in 
this direction, by having many words in menus 
modifiable, but DataSea achieves this automatically 

30 by virtue of its design. 

GUI Design is bug-prone: A complex GUI, such as 
a presentation and control system for database 
administration, today consists of many canvases and 
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widgets which hopefully present, through multiple 
mouse clicks, all information that is available. Any 
data can be changed by any part of the program, and 
this leads to bugs if the programmer can not easily 
5 see these interactions. A DataSea presentation of 

data and control shows all the objects and their 
relationships, and thus shows immediately what nodes 
can affect changes to the data, reducing bugs. To 
turn a DataSea view into an "application" means to 

10 set internal parameters, create and link together 

application nodes, and add programmatic instructions 
to these nodes. DataSea will implement a means to 
invoke these instructions. 

Interoperability Conflicts: DataSea can serve 

15 as the single source of data for any application. 

Any RDBMS (relational database management system) can 
do this, but DataSea is completely flexible in its 
data storage and linkage, guaranteeing forward 
compatibility by eliminating the risk of changes to 

20 database structure and entity-relationships of RDBs 

(Relational Databases) . 

Two separate DataSea databases can be joined, 
and automatic linkage routines will merge them 
without programmer effort. This is generally 

25 impossible in RDBs. This joining can occur by simply 

adding nodes and links from the two data sets, and 
adding together the contents of the master index, 
NameListObj . Or, the two data sets can be blended, 
merging their contents: taking two nodes with the 

3 0 same name from the two separate data sets, creating 

one node which has all the links from the two 
separate nodes . 

In most storage systems, especially RDBMS 1 s , the 
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user must know how information is stored in the 
computer and which parameter or parameters that the 
computer is using to store the data, as well as the 
proper range of values. This is often non-intuitive 
5 and may seem somewhat arbitrary for a non- technical 

user. Ideally, the computer would better mimic human 
associative memory, allowing the user to look for new 
information associated with that which is better 
known, such as a particular context, or a range of 

10 values without regard to parameterization, to specify 

the target of interest . 

OLAP (online analytical processing) and data 
mining require both analytical models and custom code 
to apply these models to particular database 

15 structures. These customizations may be hard-coded, 

non-portable and irrelevant to the model . The 
DataSea API (application programming interface) 
provides access to all data while eliminating the 
need to worry about database structure such as 

2 0 tables, columns and foreign keys. 

Shortcomings of more recent data presentation 
technologies include the following: 

Non-linear Viewing: Up-coming non-linear 
presentation tools such as fish-eye or hyperbolic 

25 views do not address the difficult problem of how to 

lay out the data and their relationships before the 
viewing method is applied. These may be useful, but 
do not address the difficult issue of how the graph 
is laid out initially. Nor are they appropriate for 

30 highly linked data sets, because the plethora of 

links resembles a cobweb from a psychotic spider. 

Virtual Reality: VR takes advantage of visual 
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clues and spatial awareness, but only for data sets 
that may be appropriately mapped to a 3 -dimensional 
space. Generally data is N-dimensional and thus, in 
general, virtual -reality which models information as 
5 physical objects in 3D space is inappropriate for 

viewing arbitrary data. 

Voice Interface: even more than a GUI, voice 
control needs a smooth transition from state to state 
in response to commands so that the user can follow 
10 what is happening. GUIs hide previous states with 

new windows, while the present invention moves 
objects gradually and continuously in response to 
programmatic or user events. 

15 SUMMARY OF THE INVENTION 

The inventive method (referred to as "DataSea") 
is a method for storing, accessing, and visualizing 
information. Data is stored into nodes and 
visualized as a x sea' of linked nodes. Nodes can 

2 0 contain anything such as documents, movies, telephone 

numbers, applications or words containing concepts. 
Interactions with the user organize the data from a 
defined, and then refined, point of view, with 
re l evan t data brought to their attention by smooth 

25 changes in the data's appearance. 

Essentially, a handful of nodes (which are 
typically selected by value) are linked to the point 
of view turning the web of data into a hierarchical 
network. Further order is imposed by the use of two 

30 types of commands: one which relies on the data 

values, the other on the links and types of the data 
nodes . 

The user typically enters words into a computer 



-5- 



PATENT 



programmed in accordance with DataSea and watches 
DataSea' s response. Individual nodes are rendered 
according to the sequence of nodes between themselves 
and the point of view, allowing different 
5 presentations of data. Applications may be stored 

into nodes and can be located and executed by 
DataSea. These applications can operate on and 
present information from DataSea in the conventional 
manner, with windows and menus, or by using the 
10 DataSea mechanisms of visualization, including the 

so-called virtual reality mode ( "VR-mode" ) which 
supports deterministic data placement as needed in 
such things as forms and spread sheets. 
Examples of use include: 
15 l. Entering keywords and phrases selectively 

retrieves and emphasizes different data types 
such as loose notes and email, but these entered 
keywords and phrases need not match exactly the 
content of the resulting emphasized data. 
20 2. Direct and specific information is retrieved: 

The user enters the name of "Jim Smith" followed 
by an appropriate command such as "back" or 
"and" along with the phrase "Phone number" which 
refers to a pre-existing AN. Jim's telephone 

2 5 number becomes obvious as it approaches the 

point of view, which in this case is "Jim 
Smith" . 

3. A manufacturing facility has test data from 

machines and 3-D models of those machines. These 

3 0 data sources are integrated and the user can 

visualize the facility from different points of 
view, e.g. a virtual reality mode, tabular 
presentation or the standard DataSea network 
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connectivity display. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 is a diagram of relationships between 
nodes which can be visualized in accordance with the 
invention . 

5 Fig. 2 is a flow chart of steps performed in 

accordance with the invention. 

Fig. 3 is a block diagram of an embodiment of 
the invention. 

Each of Figs. 4, 5, 6, 7, 8, and 9 is an example 
10 of a display generated in accordance with the 

invention. 

PREFERRED EMBODIMENT OF THE INVENTION 

This is a disclosure of computer implemented 
15 methods for storing, manipulating, accessing and 

displaying data and its relationships, and of 
computer systems programmed to implement such 
methods . 

These methods are flexible, applicable to any 
2 0 kind of data and are useful to diverse groups of 

users. A prototype is implemented in the Java 

programming language . 

Data is stored into nodes which are linked 

together. All nodes contain variables, including 
25 descriptions, types, magnitudes and timestamps. 

Links also contain information about themselves, 

including connection strength of the link and 

descriptive information. 

Data is accessed and modified based on the 
30 values of data, their relationships, the values of 

DataSea parameters and links between nodes, rather 

than pre-determined locations in memory, as is done 

in most programming models. 
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Any existing application can be emulated in 
DataSea by creating and linking appropriate nodes. 
Positions of nodes as displayed on the screen are a 
result of processing force parameters rather than 
5 pre-determined positions . 

Commands to DataSea are not chosen from 
hierarchical lists or menus, but rather they are 

1. Simple navigation commands; 

2. Words (data values) generated by the user; and 
10 3. References to nodes brought to user's attention. 

This approach to the command interface, and the 
smooth changes of state in visual feedback, lends 
DataSea to voice input and thus wireless "PDA 1 
(personal digital assistant) type devices. 
15 Key aspects of the invention are: 

1. nodes which can contain any type of data, 
links between the nodes; 

2. manipulation of internal parameters of 
nodes and links; 

20 3. visualization of nodes and their internal 

parameters ; 

4. smooth transitions during changes in state 
of the network ; 

5. integration of virtual reality 
25 representations ; 

6. simple commands and low learning curve; 

7. increased robustness to imprecise commands 
as the data set grows and matures; 

8. obviation of the need to predetermine data 
3 0 structures when entering new data; and 

9. integration of legacy data with the 
structure inherent in it. 
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DEFINITIONS : 

"POV stands for "Point of View' and is the 
designation given a node from which many 
operations are begun, such as defining a 
5 hierarchy of distance in terms of links of any 

node to the POV. 

"DN 1 refers to a data node containing specific 
values of a parameter. "AN' refers to an 
abstract node, which contains a summary, 

10 abstract, or explanation of the data stored in 

one or more DNs, and represents a concept or 
parameter name which can link and thereby group 
one or more DNs. E.g., "address" is an AN, 
while the specific address "123 Main St." is a 

15 DN. 

DN("abc") refers to a data node named "abc" . 
AN( u xyz" ) refers to a AN named "xyz ; ' . 
x magnify' means to change the value of the 
magnitude variable ( x mag') or related variables 

20 inside a node and or its links. 

'distance' refers to the minimum number of links 
between two nodes, also called the link- 
distance . 

'conceptual distance' refers to a more complex 
25 function of link distance and other parameters 

including mag, link-connection-strength and 
total number of links to a node. For instance, 
the conceptual distance between two nodes which 
are several links apart can be proportional to 
30 the product of the link connection-strengths 

times the product of the mag's divided by a 
function of the link-distance. 

'near' refers to a relatively low distance or 
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conceptual distance . 

' commands' in DataSea are any programmatic 
methods of accessing, manipulating, creating or 
deleting data structures or elements of DataSea. 
'applications' in DataSea are programs which use 
or modify data, links or resources of DataSea, 
and modify internal parameters of nodes or 
links, and or create or delete nodes, 
'environment checking' refers to getting 
information about nodes and links in the 
neighborhood of or nearby one or more nodes, 
'abbreviated' refers to incompletely rendering 
and positioning nodes. 

'distal path' is a sequence of linked nodes, 
each node distal to the prior one. 
'multiple paths' refers to more than one route, 
through links, between two nodes. 

'interaction with DataSea' refers to either user 
interaction or programmatic interaction. User 
interaction is typically through the use of 
DataSea query language (keyboard or voice 
interface) and mechanical means such as a mouse. 
Programmatic interaction can result from DataSea 
nodes themselves or external programs, 
'distal' refers to those nodes having a higher 
link-distance value (node.dist) than the link- 
distance value (this.dist) of the reference 
point or 'this': that is, node.dist > this.dist. 

Proximal is the opposite, referring to lower 
distance . 

'primary node' refers to a node directly 
connected to the reference point or 'this' . 
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x child' is a primary distal node, while % parent' 
is a primary proximal node. 

* setting a POV means assigning an existing node 
as a point of view, or creating a new node and 
linking it directly to a number of existing 
nodes, specified at the time of creation of the 
POV or later. 

"spreading mode" refers to the rules used in 
applying algorithms, possibly recursively, from 
one node to its neighbor or neighbors. Criteria 
might be dependent on proximal or distal 
progression, mag, CS (Connection Strength of a 
link), potentiation level, or other factors. 
'Aliasing' refers to the mapping of a node to 
other nodes or a range of nodes. For instance, 
when an action is performed on the "tomorrow" 
node, it executes enough code to link itself to 
a node having the (absolute) value of tomorrow's 
date, dropping links to any other dates 
previously established. Linking a node to 
"today" results in linking to the node 
representing the absolute date. Depending on 
the spreading mode, related times will be more 
or less affected by commands. Nodes with 
TimeStamps closer to tomorrow will be affected 
more than those further away. Spreading can 
also be dependent on values and a range, e.g. 
decreasing the effect of "more" as 
1/ ( (current_value- 
optimal_value) /fuzziness_range) . 
Integration of a GPS receiver, or simply 
assigning a static location in a map, will be 
used to alias the word "here" . 
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"Presented data set" is what the user sees at 
the moment, being a collection of nodes with 
(mag > some threshold) . 

"Target data set" is an ideal collection of 
nodes representing the information the user is 
searching for. 

"Traveling distally" means going from node A to 
node B only if B.dist is > A.dist. 

"Traveling proximally" means going from node A 
to node B only if B.dist is < A.dist. 

"Traveling downstream" means going from node A 
to node B only if A.getPol (B) is The 
polarization of the link between A and B can be set 
on entering the link between A and B, the order of A 
and B determining the polarization: 

A. link (B, { polar i zation= } true) 

means 

A.getPol (B) is 1 Typically, nodes A and B 
are linked such that node B is downstream from node A 
when node A is more general than node B (so that by 
traveling downstream from node A to Node B, a user 
encounters more specific, rather than less specific, 
information) . In characterizing a node, a user 
usually wants to see progressively more general 
(broader) information about it. 

"Traveling upstream" means going from node A to node 
B only if A.getPol (B) is '+'. 

A ".Recently visited" node denotes a node being used 
in an operation which traverses the network. The 
node 1 s TimeStamp is updated on a visit. 

As shown in Fig. 1, each node has a link to at least 
one other node. Each link is defined by three 
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values: CS (which is Connection Strength of a link, 
initially set to 1.0), Description (which is a free- 
form String describing the node) , and Type (For 
example DN (data node) and AN (abstract node) ) . 

5 Fig. 2 is a flow chart of steps performed in 

accordance with the invention. First, a Point of 
View (POV) is set. Then, internal parameters 
associated with the POV are set . The internal 
parameters include those listed (with "pressure" 

10 denoting the values of summed forces influencing a 

node's position, "forces" denoting parameters 
indicative of pushing or pulling of the node's 
position relative to other nodes: positive or 
negative values calculated by repetitive interactions 

15 between any node and others, and global forces such 

as a "drift 1 or "gravity' biasing the positions of 
nodes, and "positions" denoting the location on the 
computer display, or more generally the doublet or 
triplet representing a node inside a virtual space, 

20 viewed on the computer's display). Then, feedback is 

provided to the user by displaying representations of 
the nodes on a display device in accordance with the 
internal parameters set in the second step. 
Optionally, auditory feedback is also provided to the 

25 user during the third step. As a fourth step, the 

user interacts by providing commands for modifying 
the internal parameters (both node parameters, such 
as magnitude, and link parameters, such as distance) 
set in the second step. The commands can include any 

30 of those listed, or any of those discussed below. In 

response to a command specified in the fourth step, 
the second step is performed again (to reset the 
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internal parameters) and then the third step is 
performed again (to provide feedback indicative of 
the reset parameters) . 
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EXAMPLE OF USING THE INVENTION: 

A candy factory supervisor performs the following 
tasks (there are many different commands and choices 
of values which will give similar results) : 

views the facility (the candy factory) to get an 
overview of its status and sees a VR (virtual 
reality) rendering of the various stations, 
color-coded for activity (by using the command 
"show factory") ; 

reviews the recent temperature history of one of 
the problem machines, a chocolate melter and 
sees the machine with clusters of data nearby 

("reset, show Choc_2_Melter and Temperature and 
TimeLine and recent") ; 

views the melter and groups data from it and 
sees the abstract nodes "Temp", "Up-Time" and 
"Operators" which categorize the data 

("reset, show Choc_2_Melter , group") 

checks for other applications which use data 
from the chocolate melter ("apps") and after 
seeing the familiar application named 
"AppMelterGraphs" invokes this canned 
application showing graphs of the melter' s 
history ("reset, show AppMelterGraphs and 
Choc 2 Melter") ; 
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saves this point of view named ''Daily" ("save 
Daily" ) . Later in the week, after forgetting 
its name is reminded by asking for saved POV's 
from last week ("show Saved and LastWeek" ) ; 

checks unread mail ("reset, show Mail and unread 
and TimeLine" ), and now de-emphasizes replies by 
himself ("less Me") 

'Me' is an alias node, linking directly to a node 
representing his user ID; 

begins an email to co-worker ("reset, show 'John 
Smith', AppMail"). "AppMail" is a canned 
application which starts from the current point 
of view and searches the neighborhood for two 
data nodes: a data node directly connected to 
an abstract node that is equivalent to "Name' , 
and another data node connected to the abstract 
node "Address" . It then formats a text window 
for composing an email message; and 

enters appointment with Scharffen Berger 
chocolate supplier (input "mtg tomorrow 4pm 
'Scharffen Berger'") and sees TimeLine with the 
event for April 28, 1999, more info about the 
contact person at Scharffen Berger is visible. 



DataSea is a comprehensive program that stores, 
manipulates and visualizes all forms of data. 
Visually animated objects, or nodes, represent data 
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or abstract concepts. Interactive commands (which 
something like verbs) operate on nodes and the links 
between them (which act something like nouns) . These 
commands change internal parameters of the nodes and 
links. These parameters are visualized by qualities 
such as position and size. Certain nodes are 
emphasized, presenting information. The user finds 
the data or resource needed without knowledge of the 
data structure. 

Unusual features of DataSea include relatively 
natural commands, robustness to imprecise queries, 
ability to generalize, absence of restrictive 
structure, use of semantic information and smooth 
transitions between visual states of the user 
interface. The simple commands and feedback from 
smooth visual transitions is key in integration 
DataSea with a voice interface. 

The front-end of DataSea is a query interpreter and 
visualization system, and on the back-end is a 
database and API (application programming interface) . 

Briefly, one sees a x Sea of Data', and after each of 
a series of commands, one sees increasingly relevant 
data more prominently. 

DataSea nodes act something like nouns of a natural 
language, and DataSea commands something like verbs. 

Here are the principal steps involved in a user 
query: 

Establish a point of view (either an existing 
node or a new, 'blank' one: if new, enter one 



-18- 



PATENT 



or more reasonable values for broad, relevant 
terms of the query) . 

Invoke commands (such as 'show', 'back', 
'similar', 'abstractions') followed by more 
words of the query. 

Directly (e.g. 'more wordXXX' ) or indirectly 
(via commands such as 'group', 'similar', etc.) 
manipulate the presentation, progressively 
emphasizing information that is more relevant. 



In a preferred embodiment, DataSea is a pure- Java 
application that can serve in a range of roles. It 
can view and control existing and legacy data such as 
email, documents, file directories and system 
utilities. It can ultimately serve as the principal 
UI to a system managing all data and system resources 
of a personal computer or workstation. 

The natural ability of people to recognize visual 
patterns can be leveraged to convey information 
rapidly to the user. For instance, certain 
algorithms which depend on particular node and link 
configurations can render and position those nodes 
for rapid recognition. For example, if a target DN 
is surrounded by intermediate DNs which are 
themselves linked each to a distal AN, then those 
intermediate DNs are probably describing the target 
DN. The number of intermediates is then a measure of 
how much information is known about the target DN. 
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Its ability to gracefully reduce the complexity of 
the visual output means that a wireless hand-held 
client can be used to quickly browse and retrieve 
information from a remote server. 

5 The simplicity of commands and accessibility of 

DataSea to the novice user lends itself to voice 
commands that can be used to navigate and control the 
display of DataSea. 

The simplicity of DataSea' s data structure allows 
easy acquisition and integration of legacy data into 
DataSea. Because new data is integrated with old, the 
acquisition of new data not only allows its retrieval 
by the user, but also enhances the user's retrieval 
of older data. Thus, as DataSea matures in its data 
content, queries are more robust to imprecise terms 
from the user. Since DataSea captures the 
information in the data and its structure from legacy 
databases, applications in DataSea can emulate legacy 
applications, while of course making this information 
available to broader use within DataSea. 

While DataSea can emulate a RDBMS, without the 
complications of tables and foreign keys, the rich 
connections of DataSea and its ability to insert 
abstract nodes opens the way for neural -type 
25 processing. Learning-by-example is one example of 

that new capability. Learning-by- example refers to 
adjusting mag and CS values by "voting 1 (via "more" 
or "less 1 , for example) on DNs, without relying on 
ANs . This selects DNs which the user especially 
30 likes or dislikes. Applying commands to DNs (such as 

-20- 



15 



PATENT 



files or URLs) changes not only the mag of each DN, 
but changes the CS and mag in its neighborhood, 
typically spreading through related ANs, thereby 
changing the mag of other DNs in the neighborhood, 
5 i.e., having similar qualities as the DNs that the 

user liked. A different point of view applied to 
DataSea, by virtue of different connections and 
connection strengths, changes the presentation of 
data as fundamentally as changing the database design 
10 in a relational database, but much more easily. 



DataSea can be used to perform simple web-history 
viewing, data mining, and can be used as the 
principal Desktop UI for a computer showing all of 
15 the computer resources. 



LEGACY DATA AND NETWORK TOOLS: Viewing domains such 
as file systems, web history or HTML documents and 
computer networks are obvious uses of DataSea and are 
20 early targets of DataSea. Applied to a web browser, 

the text of links to the current URL can be retrieved 
and parsed into DataSea, in effect pre-digest ing it 
for the user. 



2 5 VOICE INTERFACE TO WIRELESS HANDHELD DEVICES: The 

GUI (Graphical User Interface) of DataSea is 
important, but the underlying structure of DataSea 
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queries and input methods are curiously appropriate 
for voice and natural language interfacing. Since 
queries, input and control of DataSea rely on simple 
words DataSea, current voice recognition software can 
5 be used instead of text input, and would 

significantly improve the uniqueness and general 
usability of DataSea. No other UI uses voice or is 
as appropriate for voice control. Since the results 
of many queries may be a short answer, voice 

10 generation is an appropriate output method, in 

addition to or instead of graphic output. For 
instance, the query x show John Smith and address' is 
precise enough to generate one value significantly 
stronger than others, and therefore amenable to a 

15 programmatic decision for selecting which results to 

submit to voice output. In this way, voice can be a 
complete communications method, opening the door to 
remote access via telephone or wireless device. 



2 0 PORTAL: Another opportunity involves selling server 

time for web searches, giving away client software 
initially. A typical interaction might involve 
throwing a number of search terms, asking for a 
display of abstraction categories or examples of 

25 URL's followed by the user judging prominent nodes, 

repeating as the search narrows. 



DATA WAREHOUSING: DataSea ' s data structure and tools 
lend themselves naturally to data warehousing and 
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mining, each with an estimated worldwide budget in 
1999 of nearly $2 billion. DataSea intrinsically 
provides data mining and warehouse support. DataSea 
supports any type of data without specifying in 
5 advance the fields or tables to use. This is good 

for arbitrary user input, such as free-form notes, or 
machine -generated input, such as received data from 
automated test -equipment . DataSea therefore is a 
completely flexible data warehouse. 

10 

DATA MINING: Data mining is supported by DataSea 1 s 
ability to reorganize any data based on user-defined 
point of views, the ability to link any and all data, 
and the ability to store the processing of data and 
15 applications into DataSea itself. 



PRINCIPAL UI: DataSea can serve as the Desktop 
screen, the principal interface to all system 
services, independent of operating system. It can do 
20 this on demand, without locking the user into a 

particular operating system. 



ARCHITECTURE OF DATASEA 
Java Objects 

2 5 The most used variables of object Node are Name, 
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dist, mag and links [] ; . 
Definitions : 



global variables: Node PointOf View_node , lastNode; 

5 

Class Node extends Object { // Important variables in 
each node 

Object Data; // contains any computer representation 
of data, and includes get and set methods 

10 int dist; // the number of links from this node to 

the POV or another node . 

int tdist; // a temporary version of x dist' used in 
calculating the minimum number of links from a 
node to other nodes . 

15 double mag, x,y,z; // x is the x x' position in the 

DataSea coordinate system 

double px, py, pz; // px is pressure in x direction 
resulting from positioning routines 

double potentiation; // used to make node more 
20 sensitive to effects such as magnify 

TimeStamp potentiationTS ; // time of last 
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potentiation, used to degrade effect of 
potentiation as time passes 

String Desc, Type; // used to describe the node. Type 
is typically DN., AN, Event 

LinkObj links [] ; 

} 

Class DataObj extends Object { // contains any 
computer representation of data, and includes get and 
set Methods 

String s; 

getDataAsString ( ) . 

} 

Class LinkObj extends Object { 
Node 1 inked_node ; 
Double CS; 
TimeStamp TS ; 
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String Desc, Type; // used to describe the link, may 
refer to the source of the link, whether its an 
alias or not. usually set by the creator of the 
link. 

} 



Class VRObj extends Object { // VR stands for Virtual 
Reality 

double VRx, VRy, VRz; // relative positions in VR 

space, typically positions offsets from another 
node identified by recursive calling sequence or 
information contained in this or in related 
nodes or links. 

boolean VRlocal, VRenabled; 

VRShape Shape; // data and methods to render semi- 

realistically, for Virtual Reality presentation. 

} 

Class NameListObj extends Object { 
// Acts as an index for all nodes. 

// Vector, hashtable or other implementation of all 
nodes for rapid access based on name and or 
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other fields such as TimeStamp and Desc 
// METHODS 

Node getNodeNamed (String s) {}; 
} 

5 

EXAMPLES OF SUBROUTINES USED IN PREFERRED EMBODIMENT 

Node.getChildCount () // return the count of 
distal links 

Node.getChild(int i) // returns i th link with 
10 distance > Node's distance 

Node . getParent ( ) 

Node .getNodeNamed (String s) // finds a node 
named * s ' anywhere 

Node .getNearbyNodeNamed (String s, int 
15 max_di stance, String type) // finds a node named 

x s' within x max_di stance' links of Node, having 
Type * type' . 

Node .getConceptualDistanceTo (String s, int 
max_distance, String type) // returns result 
20 which is a function of distance to the 

targe t_node named x s', Type x type' and the CS's 
to and including the target_node, and the mag of 
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targe t_jnode . 

Node .get/ setNodeLinkedToAN (String an_name, Data 
data_yalue) get or set the value of the node 
between 'this' and AN (name) 

5 • set_dist (Node start ing_node) // recurses, 

calculates and sets Node.dist by finding the 
shortest route to each node by recursing from 
s t a r t i ng_node 

set_POV(Node target_node) // 
10 { set_dist (target_node) ; POV=target_node ; } 

show (String name) { create_POV ( ) ; 

POV. link (getNodeNamed (string) ) ; set_dist (POV) ; } 



EXAMPLES OF USER COMMANDS 

15 Most methods have three versions of arguments: (), 

(String s) , and (Node nl , Node n2 ...) . If null, then 
lastNode is used, if String, then matching nodes are 
looked for: both pass one or more nodes to the third 
version which takes explicit Nodes. 



Show ( ) , (Node target) // link target to point of 
view, create point of view if necessary 

AbsO (Node target) // magnify distal ANs 
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showing category of target (the AN is in a sense 
a category) . An AN related to the target by two 
or more intermediate ANs will accumulate 
magnification via those intermediates. Follow 
distal paths, magnifying ANs along the way. Any 
AN along multiple distal paths will be magnified 
multiple times. Thus higher level ANs are 
emphasized. 

Back (Node target) // working proximally from 
target, increase mag of all until point of view 
is reached 

And (Node target_l, target_2) // potentiate 
neighborhood of target_l, then raise mag in 
neighborhood of target__2 if potentiated 

More (Node target) // raise mag in neighborhood 
of target, reducing the amount of change in mag 
as a function of spread_mode : e.g. proportional 
to the distance or a constant up to some 
threshold distance . 

Potentiate (Node target) // similar to More(), 
but the value of the variable potentiated is 
increased rather than the variable mag, and the 
potentiation TimeStamp ( "potentiationTS ' ) is 
updated and used to tell other routines when 
this was last potentiated. Typically other 
routines will reduce their modifications to 
variables as the elapsed time (currentTimeStamp- 
potentiationTS) increases . 
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Sim (Node target) // indicates DNs which are 
similar to target based on their connections to 
ANs or other nodes. Similar to abs() but DNs on 
multiple paths are emphasized. Note: ^abs' and 
s sim' use similar mechanisms traversing nodes. 
One emphasizes ANs resulting in abstracting the 
categories of the starting point, and the other 
emphasizes DNs thereby showing nodes that are 
similar to the starting point. 

Group (Node start, int target_level ) { // group 
DNs around ANs which characterize them. From 
point of view, go distally until 
child. dist==target_level . If child is an AN, 
then force parent. X = child. X which clusters the 
data nodes between the start and the child 
abstract node onto the abstract node . Wait a 
second or so, letting the data nodes spread 
apart some, and repeat for (target_level- - ) . 

Recent 0 // magnify nodes with recent 
TimeStamps . 

The usage "Recent 1 hour" sets the value w l hr" into 
the DN between DN(now) and AN (range) . 

where "range x = y" means: 

(DN(now) . getDNhavingANnamed (range) ) . setData("l 
hour" ) 
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We next describe some of the above-mentioned commands 
in another way, and we describe other commands: 



DATA MANIPULATION COMMANDS 

5 ■ Show links specific keyword to a point of 

view, zooms on it and emphasizes it and its 
neighbors . 

Group Starting from the point of view, 
secondary (2°) data nodes spread distal magnify 
10 to directly connected abstract nodes, and set 

the secondary nodes position next to the largest 
directly connected abstract node, thereby 
grouping them. 

Link | unlink links specific nodes to a point 
15 of view or other nodes. 

More | Less emphasizes specific keywords given 
by the user and their immediate neighbors. 

Abs (tractions) emphasizes abstract nodes 
related to a data node, higher levels of 
2 0 abstractions being dominant initially. 

Sim(ilarities) emphasizes data nodes which are 
similar to a selected data node. 

AND emphasizes nodes near two or more selected 
nodes, similar to the boolean x and ; function, 
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although as with most aspects of DataSea, the 
result is not a binary decision. The non- 
linearity of the AND operation is adjustable, 
bringing in more or less of the neighbors. A 
5 highly non- linear mechanism akin to neural 

'potentiation' can also be used, which can give 
very precise selectivity to the process of 
adjusting connection strengths and magnitudes. 

SS Spreadsheet simulation, given one data 
10 node, this presents related data nodes in 

tabular form with their principal abstract nodes 
as column-headers. Useful for tabular output. 

TL A fast synonym for "zoom TimeLine" , "more 
now" . Now' is a node updated automatically with 
15 the current time, linked to the TimeLine and 

nodes containing preferences for concepts such 
as 'recent' . 



VIEWING COMMANDS 

20 • Back emphasizes data nodes going backwards 

from a distant abstract node to the point of 
view. 

Zoom Centers and magnifies the screen image 
appropriately on a node or group of nodes 



25 
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SUPPORTED APPLICATIONS 

Mail sends email to an address that is either 
explicitly selected, or begins a dialogue to 
5 choose one or more addresses based on their 

proximity to the current point of view. This is 
an example of a command which uses information 
from neighbor-values such as type and distance 
to make decisions. Uncertainty is resolved by 
10 the user who selects from a list of candidates 

proposed by the application. 

Simple Tabular Presentation (Spread-sheet 
forma t ) 

Activate runs the most appropriate program on 
15 a selected data node. Exactly which program is 

easily determined and changed if desired, since 
it is a functional node connected to the 
selected data node, and is thus viewable through 
normal DataSea techniques. 

2 0 • Input takes text given by the user, parses, 

time-stamps and stores it into DataSea. A 
typical example of this would be ad hoc notes, 
such as x phone -call from Bob about printer 
problem' , or "phone-number of Mary Smith is 845- 

25 1234' . 
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EXAMPLE APPLICATIONS 

Mail (Node target) From the target node, search 
the neighborhood for AN ("name")/ and use the DN 
proximal to it. From that DN, search for a DN 
connected to AN ( "address" ) . Similar for other 
ANs of use to a mail program. 

Notes Entire note is made into a DN, words 
become ANs with links to the parent DN. 

The special syntax 

"wordl=word2" 

creates AN(wordl) linked to DN(word2) . 

SSheet(Node target) A tabular 

representation of data and column headers of 
linked ANs in the neighborhood of target_node is 
built : 

Collect all DNs linked to target. These represent 
one row of tabular presentation. Label these 
with column headers of the names of their 
directly linked, distal ANs. Each subsequent 
row is built from DNs linked to ANs and each 
other . 

Set all of the VR position variables to appear in 
DataSea display as tabular format when in 
VRmode . 
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Phone (Node target) looks in the neighborhood of 
target for a DN linked to AN ( "phone number") 

Dir (Node target) is a special case of SSheet, 
and looks specifically for directory-related 
5 information. 



DATA ACQUISITION 

Any application can store new data into DataSea, e.g. 
the applications Notes and Email. 

10 Custom programs can translate legacy formats into 

DataSea linked nodes, e.g. to load information about 
a file system, the names of files and directories are 
stored into a tree representation first, then suffix 
and name can be used to create ANs, then content can 

15 be analyzed, e.g. by putting it through the Notes 

processor . 

A RDB (Relational Database) would be loaded by 
storing the names of databases, tables and columns 
into ANs, and then values into DNs and keys into 
20 links. All these would be linked appropriately: e.g. 

table name linked to column names linked to all DNs 
having the values in those columns . 

Web indices and browser histories can be stored. 

System resources can be represented in DataSea. 
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A dictionary or synonym list can be loaded. The Type 
and Desc of links between synonyms or nodes with 
similar meaning are set. E.g. Type =" synonym" , 
Desc="from Webster's 10 th Ed." 

5 The user need not know about the data structure, such 

as database tables and their entity relationships in 
a relational database, or the directory structure of 
a file system. Nor does the user need to 
parameterize and decide how to store data, but may 

10 rather simply stuff it into DataSea. DataSea will 

parse the textual data and create links to 
representing abstract nodes. Abstract nodes are 
typically single words representing simple or complex 
concepts, and are linked to data nodes related to 

15 them. These nodes typically are massively linked. 

DataSea is accessible from external programs via its 
API. More interestingly though, Java code may be 
stored into a node, fully integrating data and 
methods. The Java code can then act from within 
2 0 DataSea, for instance modifying the rendering of 

objects or analyzing data and creating new nodes and 
links. 

The sequence of positioning and rendering flows 
through the network of nodes from the POV distally. 

25 Typically an application will start from one node, 

specified by name, pointing device or other means, 
and will search the neighborhood of that node for 
certain relationships or values and types. For 
example, invoking "Phone Jim" can find the nearest 

30 DN(Jim) , then present the nearest DN which is linked 
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to AN ("phone number"). Thus commands like "Phone 
emergency" can work since ^emergency' can be linked 
to '911' which can have a large default CS which 
allows it to dominate, and "Phone 123 Main St" can 
work since the address "123 Main St" can be linked to 
a phone number through a DN of a person's name. 

In addition to the DataSea commands such as show, abs 
and sim, new applications can be written to extend 
the base command set of DataSea. 

All nodes have the capacity to store a VRObject which 
contains position and rendering information. It 
includes a triplet of numbers describing the relative 
position of a child to its parent, if the rendering 
mode of DataSea is set to x VR-mode' . 



APPLICATIONS IN DATASEA: HOW THEY DIFFER FROM TYPICAL 
APPLICATIONS OUTSIDE OF DATASEA 

Typically computer applications use or set values at 
specific locations of memory and may or may not check 
their values by some means or rules or comparisons. 

DataSea looks for information by nearness (a fuzzy 
metric) and/or characteristics of its links and/or 
characteristics of nodes directly or indirectly 
linked and/or their values. 

Besides looking for DNs which are linked to specific 
ANs, an application in DataSea can query the distance 
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or conceptual distance from a node to one or more 
values (of values such as data values, TimeStamps or 
other parameters) . Decisions can be based on complex 
functions of environment checking. 



VISUAL PRESENTATION 

The visual tools of DataSea are based on a visual 
language which is completely different from today's 
standard GUI ' s and gives the user easier access to 
relevant data, and inhibits irrelevant data. DataSea 
can visually present large amounts of data and the 
relationships amongst them, emphasizing that which is 
relevant while keeping the larger context. The user 
sees exactly the data that is needed as well as 
related data, a form of look-ahead, albeit at lower 
resolution. 

The data presentation changes as the user interacts 
with DataSea. Data moves smoothly from the 
background to the foreground, bringing it to the 
users' attention in response to the user. The 
gradual shift in visual states helps the user to 
understand what is happening as the query progresses. 

The scene begins with a sea of objects representing 
nodes. Ordering of this sea begins as a result of 
commands to set a POV or by changing the mode to 
VRmode on some or all nodes. Typically one sees the 
sea of data in the background with the POV in the 
foreground and a TimeLine along an edge such as the 
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bottom. Nodes move and change their appearance with 
interactions. These interactions can be with the 
user or with programs inside DataSea or externally. 

The positions of nodes are changed by iterative 
calculations of forces on them, thus they move 
visibly between positions, rather than jumping 
suddenly. In this way changes in state, and thus 
appearance, can be followed by the user better than 
by sudden changes of appearance. 



VISUALIZATION (IN ACCORDANCE WITH THE INVENTION) 

Nodes are positioned dependent a set of pressures 
from sources, each pressure from a source (e.g. POV, 
parent, neighbors) being a function of that source's 
preferred position or distance between the child and 
the source, the child's mag, dist, etc. The optimum 
distance to point of view is proportional to 
dist/f (mag) . 

A node is stationary once these forces are balanced. 

Rendering is also dependent on mag, dist, and mode. 

Point of view is either a new temporary node set at 
specific position on screen, or is an existing node. 



Visual Presentation 
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The visual tools of DataSea are based on a visual 
language which is completely different from today ! s 
standard GUI ! s and gives the user easier access to 
relevant data, and inhibits irrelevant data. DataSea 
can visually present large amounts of data and the 
relationships amongst them, emphasizing that which is 
relevant while keeping the larger context. The user 
sees exactly the data that is needed as well as 
related data, a form of look-ahead, albeit at lower 
resolution . 

The data presentation changes as the user interacts 
with DataSea. Data moves smoothly from the background 
to the foreground, bringing it to the users 1 
attention in response to the user. The gradual shift 
in visual states helps the user to understand what is 
happening as the query progresses. For example, 
compare the ease of understanding either of these two 
scenarios: First, watching five animated objects, 
which represent five words in alphabetical order, 
reverse their order, representing reverse- 
alphabetical ordering: Second, watching five words 
on a line change from ascending alphabetical order to 
descending. In the first case, reversal is apparent. 

In the second, the simple operation of reversal is 
far less apparent: seeing the reversal requires re- 
analyzing the words and then trying out one or more 
possible explanations. In DataSea, nodes cluster and 
move individually and in groups in response to 
queries . Internal parameters inherent in each node 
and link change in response to queries. These 
internal parameters are mapped to visual behavior and 
appearances, such as size, position, color and shape. 
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These visual cues are used to enhance certain nodes 
or groups of nodes and their links. The internal 
parameters are changed by (typically recursive) 
commands that start at one node and spread through 
5 links to others. Commands adjust connection strength 

and magnitude of nodes based on their programmed 
algorithms and local node and link information, such 
as node type and the distance from the point of view. 
The point of view distance parameters are associated 

10 with each node and are functions of the shortest path 

from that node to the point of view. Recursive 
commands are self -terminating : typically but not 
always acting distal to the point of view (where the 
value of the next nodes distance is greater than or 

15 equal to the current distance) and often but not 

always producing less effect further away from the 
point of view. 

The initial appearance of the GUI is a pseudo-3D view 
of: 



20 • a backdrop containing the entire data set: The 

representations here are relatively stable, and 
provide an orienting reference for the user; 

a timeline along the bottom of the backdrop and 



a foreground region in which the user creates 
25 Points of Views (point of views) and into which 

data are brought forward from the backdrop. The 
dimension from back to front essentially 
represents the degree of customization of data 
presented to the user. 
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A new query is begun by entering words, similar to a 
web-search, or manipulating regions of the background 
with the mouse. One or more data nodes are directly 
"hit 1 , increasing their magnitude, and secondary 
nodes (those distal to a primary) and their links are 
affected: exactly how depends on the spread mode of 
the operation. Nearness to the point of view is 
usually a function of link-distance and magnitude, 
but other methods are possible, e.g. link-distance 
alone which display data in a simple hierarchical set 
of x levels' . Details of nodes are normally 
suppressed, but with the * magnifier mode' turned on, 
any node under the cursor presents more information. 
Another mode is x warp mode', which acts like a large 
magnifying lens on a region of the screen. This is 
similar to hyperbolic viewing of networks of nodes. 

Which nodes are enhanced depends on the command and 
the spread mode, which is the way in which it 
traverses the linked nodes. The simplest spread mode 
is x radial' : this modifies the node at distance n+1 
based on the strongest node directly connected to it 
of distance n, in effect being influenced by the node 
which is on the strongest path back to the point of 
view. Another spread-mode is x sum' , which adds up all 
the contributions of nodes of distance n to directly 
connected nodes of distance n+1. In x sum' mode, a 
single data node distal to a large number of nodes 
will sum all their contributions. This is especially 
useful in the Similarity and Abstractions operations. 
If a specific node is specified in the query, it is 
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enhanced by, for instance, growing in size and moving 
towards the point of view from the background blur of 
nodes. If an operation of an abstraction type is 
used, the abstract nodes are enhanced. The relative 
positioning of higher or lower levels of abstraction 
depends on the specific command. If an operation of 
a similarity type is used, data nodes predominate by 
approaching the point of view and by being enhanced. 

Rather than connecting the hits immediately and 
directly to the point of view, abstract -nodes in 
common are first drawn near the point of view. These 
more abstract nodes are then followed by more 
detailed ones receding back to the backdrop, 
positioned to give the sense of their being pulled 
out of the DataSea. Qualities like time since an 
event, or distance to one or more chosen abstract 
nodes can act as a secondary force, or wind, acting 
to influence the position of nodes along one of the 3 
dimensions of the visualization. 



LINKS 

Data in DataSea is heavily linked without 
restrictions on what can be linked. DataSea solves 
the x cobweb' visual problem by establishing a point 
of view for the users' queries. The problem of 
following links that are loops is solved by 
calculating, on the fly, the shortest number of links 
from the point of view to the nodes. This turns a 
series of self -referencing loops into a temporary 
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hierarchy, based on the current point of view. 

The user can browse raw data in DataSea, but 
meaningful structure comes from the interaction 
between the point of view and raw data. This is 
5 analogous to the quantum-physics effect of forcing a 

wave function into a specific physical state by 
applying an observation to the wave function: 
interaction with the user that forces data into its 
useful, visible state. 

10 A point of view is one form of an abstract node. 

Once the user finishes a query, the point of view 
that has been created can be absorbed into DataSea 
and used later, a form of x checkpoint' used in 
calculations . 

15 Links can occur rather mindlessly, for instance 

simply by association to part or all of an inputted 
document, in a way which captures relationships, for 
instance field definitions from legacy databases, or 
semantic meaning from, for example, some level of 

20 natural language processing. 

Postprocessing inside DataSea creates abstract nodes. 
These represent abstractions of the data inside 
DataSea, representing concepts or the results of 
analysis. A x mature' DataSea will contain a large 
25 proportion of these abstract nodes. 

Each event which links data within DataSea stores a 
link ID along with it. Thus any two nodes can be 
linked together more than once, each link having a 
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different ID to differentiate the context of their 
being linked. A single link ID can be used between 
many nodes, as long as that particular subset of 
nodes has a meaningful context. This context is 
stored in an abstract node which, linked of course to 
the subset with that link ID, and contains the reason 
for the links. 



DATA 

Data is user-defined and customizable: whatever the 
user puts into DataSea, it merely needs to be in a 
computer representation. Data is held inside so- 
called 'nodes', which may be linked together. A 
data-node can be a specific value, text such as a web 
page or free- form entry, or an object representing 
something as complex as a virtual -reality view of a 
manufacturing facility. Text in any language is 
broken up into words and stored. All of the 
different forms of data share identical mechanisms of 
storage, linkage, search, presentation and access. 
The database contains highly linked data but differs 
in significant ways from RDBMS ' s (relational database 
management systems) , including the ability to create 
links between any data and the elimination of 
structured tables. Rather than using pre-defined 
fields to capture relationships, DataSea uses nodes 
with appropriate links. As new data is introduced 
and linked to the existing nodes, alternate paths are 
created between points. This allows data to be found 
which contains no keywords contained in the query, 
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relying on associations contained in the new data. A 
simple example would be loading a dictionary into 
DataSea: there are few related concepts that are not 
linked through only even two or three definitions of 
either. Thus, a user may enter a query containing no 
keywords of a document and be presented with that 
document, albeit emphasized less than documents that 
contain more direct links to the query terms. AI or 
manual 'digestion' of information and linkage to 
abstract concepts is of course possible, as is done 
by those who compile databases for search engines 
today . 

The user need not know about the data structure, such 
as database tables and their entity relationships in 
a relational database, or the directory structure of 
a file system. Nor does the user need to 
parameterize and decide how to store data, but may 
rather simply stuff it into DataSea. DataSea will 
parse the textual data and create links to 
representing abstract nodes. Abstract nodes are 
typically single words representing simple or complex 
concepts, and are linked to data nodes related to 
them. These nodes typically are massively linked. 

DataSea is accessible from external programs via its 
API. More interestingly though, Java code may be 
stored into a node, fully integrating data and 
methods. The Java code can then act from within 
DataSea, for instance modifying the rendering of 
objects or analyzing data and creating new nodes and 
links . 



PATENT 



APPLICATIONS 

A* fully integrated application in DataSea uses the 
DataSea linkage and VR mechanisms to provide the 
functionality of typical window/menu systems. The 
program of the application is stored in a DataSea 
application node. 

The typical steps taken by DataSea applications 
include : 

the neighborhood of the target node is searched 
by the application for application-specific data 
requirements 

New formatting nodes are created (eg. A x page' 
representing the template for a letter) 

Links are made to data nodes and their VR 
positions are set relative to the formatting 
nodes . 



VR MECHANISMS 

All nodes have the capacity to store a 3-D vector 
called a x VR-position' . This is a triplet of numbers 
describing the relative position of a child to its 
parent, if the rendering mode of DataSea is set to 

x VR-mode' . Any child having non-zero a VR-position 
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variable will position itself relative to the calling 
parent based on the VR-position values. 



ESSENTIAL INTERNAL ELEMENTS OF DATASEA 

5 In a preferred implementation, DataSea is a pure-Java 

application. Once loaded, user-defined data-nodes 
and links are used to visualize information from a 
range of sources in an interactive or programmatic 
way. Data-node sources can be email, web sites, 

10 databases or whatever is required. Fig. 3 is a block 

diagram of an embodiment of the invention. All data 
is contained in objects called nodes. Information 
describing the data is held in the data-node. A 
complex data-node may be broken into smaller ones. A 

15 data-node has a set of standard fields describing 

itself and any number of links to other data-nodes. 

The DataSea database is a highly linked structure of 
nodes. A link contains information describing itself 
and how it relates the linked data-nodes. It 

20 therefore contains semantic information, adding a new 

dimension to interactive or programmed processing of 
data. That is, DataSea supports not just parametric 
searches (which find the values at certain storage 
locations specified by parameters) or content -based 

25 analysis (which find particular values and their 

relations anywhere in the database) , but the meaning 
of a collection of nodes. An example of this could 
be a link with the description "located near" 
relating a computer with a person's name. 
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Processing of data occurs not only on values of 
certain parameters, but on any value, independent of 
what it is describing. For instance, one may search 
for all information related to an individual's name 
without specifying which table and column of the 
database to search, and in which tables and columns 
to look for foreign keys. 

Applications can run inside DataSea, in fact these 
applications are themselves held inside a node. 
Current applications such as automatic report 
generators and data formatters, know which pre- 
defined data fields to place, just where, and how to 
order the values. This functionality is served by 
DataSea' s mechanism of node and link descriptors, 
which can act as the column names of RDBMS ' s . The 
DataSea link description however also provides 
semantic information about those relationships. 

Objects are positioned and rendered strongly 
dependent on their content and their links. That is, 
features of the rendering of nodes and the relative 
positions of nodes depend on content and links. 
Thus, DataSea is unique because the presentation is 
strongly dependent on the data itself. 
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USAGE SCENARIO 

Below is a scenario of events with comparisons 
between two different application approaches: The 
user routinely stores information and calls it up 
later when faced with a decision as to repair a new 
printer or buy an old one. This example shows the 
simplicity and time saved with DataSea. It compares: 

1) DataSea, and 

2) A mix of applications consisting of "Outlook 
Express" , "Excel", and "Internet Explorer" in a 
Microsoft Office Suit, along with two other 
applications, "Tracker", a call -tracking 
application and a database front -end application 
called DB-Front-End here. The numbers of 
seconds in parentheses following these two 
methods are estimates of time needed by the 
methods, in addition to the event itself. 



Event: The user receives email from a friend who mentions her new H.P. printer 


Office Suite: email is stored in Outlook 
Express. 


DataSea: email headers and text are 
automatically stuffed into DataSea. 


Event: The user surfs the web and finds advertisement for HP Printer 


Office Suite: Internet Explorer saves the 
non-overlapping history of URLs 
temporarily, and relies on the user to 
bookmark special URLs, and put them in the 
tree hierarchy defined by the user. 


DataSea: with links to DataSea from the 
browser, each URL visited is stored into 
DataSea. 


Event: The user gets a phone call and makes a note to himself that repairman Bob Smith 
says that printer A will cost $300 to repair, and that it is in Joe Baker's office. 


Office Suite: The user opens the call 
tracking oroeram Tracker' and fills in the 


DataSea: The text of the note is stuffed into 
DataSea. and exnlicitlv enters: "(Printer A) 
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fields prompted by the wizard, including the 
note text "Repairman Bob Smith called. . .". 

To store the location of Printer A in a 
company-wide database, the user invokes the 
database editing application DB-Front-End, 
selects appropriate view (e.g. 
MachineView), searches for Trinter A', 
enters 'Joe Baker* for the column 'Location'. 


(office=Joe Baker)". The information is 
parsed and time-stamped automatically. 


Event: The user now wonders if he should replace printer A with a new one. He remembers 
seeing a reference in a recent email for an HP printer, and also an HP ad on the web, but 
can't remember exactly where he filed this information. 


Offiff* ^uitp* T Tqpt nnen<? Ontlnok Rxoress 

tries to recall the name of the email sender, 
possibly keywords to search and sets the 
time range to search (enlarged since an event 
1 minute outside the range will be excluded). 
Immediately he sees messages focussed on 
one keyword. User skims header and text to 
decide if this is the correct message. 

Then, user opens Internet Explorer and 
browses the names in the History list, trying 
to recall the context for each as he sees them, 
or tries to recall the name of the document 
corresponding to the right URL. 

He then deduces which database stored 
procedure, table or view to use, opens the 
DB-Front-End application, enters 'Joe Baker' 
in the correct search field and sees "Printer 
A" in the Equipment column. He arranges 
the four windows from these applications for 
simultaneous viewing (Outlook, Explorer, 
Tracker, and DB-Front-End). 


DataSea: User starts a point-of-view with 
the initial associative words '"Joe Baker", 
Printer, email' and gives his guess of when 
this all occurred via mouse drag on the time- 
line. He sees several concept-nodes and 
some data-nodes. He then judges these by 
emphasizing/de-emphasizing particular ones, 
and sees email with appropriate links. He 
further judges them, adds the word "URL" to 
the point of view which results in the 
appropriate URL and data being pulled 
forward 



Example (Sales Pitch) : Laptop starts Dat aSea, voice 
interface enabled. 
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User says y showMail' ... mail nodes swell, abstract 
nodes visible. 

User says 'show Files' x Tax 97' brings directories 
forward and shows files. 

User says x show John Smith' which crates a point of 
view, linked to abstract node named "John Smith" 

User says "BMW' which shows Smith's "BMW 528 1985" by 
virtue of abstract node "car" linked to "BMW", 
"Ford" . 

User says y show address' bringing "123 Main St." 
forward. 

User says x reset', then 'show address' and sees names 
and addresses of all entries. 

User marks timeline over the past week, and says 
'show printer and email and Hewlett Packard' which 
shows an abstract node "Printer" linked to email 
message about printers and a web page of HP printers 

User says 'input "John Smith telephone 848-1234" 
which creates a node holding the entire message, and 
parses it into smaller data nodes. 

User says x show John Smith'; one sees his telephone 
number . 

To demonstrate abstract nodes and learning: have 
processed 50 URLs from 'cat' web search, . See all 50 
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around the abstract nodes surrounding the point of 
view named x show cat'. User deselects URLs not 
related to technical descriptions, the abstract nodes 
change, bringing forward URLs with more technical 
information. 



BENEFITS 

1) Immediate visualization of user-defined data. 

2) Quick visual feedback on relevant data. 

3) Less time required to interpret complex data. 

4) Higher user productivity because DataSea is an 
intelligent organizer of data. 

5) Non- technical user can view data in way they 
understand, not the way the database may be 
organized . 

6) Reduces dependency on programmers. 

7) Reduced bug-count and time for programmers. 

8) Simpler usage model through single tool to 
manage and visualize information. 

9) Time is saved in storing and retrieving 
information . 
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10) Databases can be joined automatically without 
custom code . 

11) Points of view can themselves be stored into 
DataSea, storing interactions with the computer. 

5 12) Queries and processing results can be stored 

into DataSea, and used as any other data. 

13) DataSea learns by example: The user may search 
for data based on relationships to known data or 
high-level concepts. Judging can be applied to 

10 specific data, such as documents, or to 

concepts, resulting in "learning by example': 
the mechanisms of positive and negative feedback 
to the system are the same . 

14) New data is automatically integrated: New data 
15 can be entered and automatically integrated, 

allowing non-programmers to store data without 
adapting to the database. 

15) Interoperability issues are moot: Programs can 
be integrated into DataSea as well as simple 

2 0 data. Since all links between nodes use the same 

mechanisms, any program has access to any data. 

16) All data can be viewed while maintaining 
orientation and context: The user can always 
quickly orient themselves, sparing confusion 

2 5 because data is viewed from the point of view 

that the user has designated. Context is 
maintained by position and rendering cues, which 
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indicate the sources of the data and their 
immediate relationships. The background with 
its clusters of data-nodes is relatively stable 
and familiar, and as data is pulled out from it 
towards the foreground point of view, the data's 
position is influenced more and more strongly by 
the criteria of the point of view and nodes 
connected strongly to it. The user "judges 1 
nodes: emphasizing a node will enlarge it and 
bring it to a more noticeable position. 



Fig. 4 is a screen-shot which shows the result of 
entering the simple command "show rocky' ("rocky" 
representing the name of a user, who has previously 
entered data pertaining to himself into the system) . 

Fig. 5 is a screen-shot which shows the result of 
entering "abs* (when the Fig. 4 display has been 
generated) , bringing forward the abstract nodes which 
are distal to the data node "Rocky* . Note the 
abstract node "Directory', which, because it groups 
the abstract nodes "phone* and "address' and is thus 
at a higher level of abstraction, is positioned 
closer to the point of view than "phone 1 and 

"address ' abstract nodes . 

Fig. 6 is a screen- shot which shows the result of 
entering "back phone* (when the Fig. 4 display has 
been generated) , bringing the data node between the 
abstract node "phone 1 and the target node "Rocky* 
forward . 
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Fig. 7 is a screen- shot which shows the result of 
entering "SS' (when the Fig. 4 display has been 
generated) , which gives a simple 2 -column spread- 
sheet based on the current target data node "Rocky 1 . 

Fig. 8 is a screen- shot which shows the result of 
entering "show egg- tempera 1 . It shows the primary 
abstract nodes. But what if we want to see some 
examples of data nodes which are similar to "Egg- 
Tempera 1 ? If so, one could enter the command "show 
egg-tempera ' , "similar' , resulting in the screen-shot 
of Fig. 9. It is apparent by comparing Fig. 9 with 
Fig. 8 that the node "Frescoes" and nodes 
"Glazing_techniques" , "acrylics" and "oils" are 
brought forward in Fig. 9, near the target data node 
11 Egg -Tempera" . 



Aspects of the invention include the following: 



1. Methods of automatically creating a highly 
connected network of nodes containing data from 
computer- readable sources . Information 
contained in the structure of legacy databases 
is captured. All data can be integrated. The 
nodes are identical in structure, as are their 
links, differing only in their content. 

2. Methods to interactively explore, access and 
visualize information in a highly connected 
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network of nodes. These involve setting a point 
of view, linking some number of nodes directly 
to it and calculating individual link distances 
from all data nodes back to the point of view. 
5 This creates a hierarchical network amenable to 

visualization even though there may be cyclic 
loops in the links. This hierarchy may change 
whenever a link is added or deleted. Other 
internal parameters such as the connection 
10 strength of each link and the magnitude of each 

node are used in the visualization to calculate 
position and size of each node. 



These methods : 

15 A. emphasize relevant data throughout the query 

process ; 

B. are tolerant to imprecision and errors in 

queries. This ability improves as the data 
set grows; 

20 C. allow access directly, or indirectly; retrieving 

relevant data containing none of the key- 
words used in the query; 

D. allow finding data similar to known data, 

without specifying its characteristics; 

25 E. give smooth changes in visual state rather than 

step-wise changes, and provide information 
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to the user in the manner that the nodes 
move (speed and direction) and appear 
(size, color) ; 

F. show available categories that a particular 

datum is a member of; 

G. integrate virtual reality renderings when 

appropriate; 



3. Method of breaking display space into an array 
of cells, having dimension one more than the 
dimension of the space displayed on the screen, 
the extra dimension being size. These are 
linked to nodes and used by the user interface 
to rapidly access individual or groups of nodes. 



Additionally these methods : 

A. are accessible to the naive user; 

B. allow emulation of applications such as 
relational databases and spreadsheets ; 

C. use a simple command and query syntax which is 
amenable to a voice interface; 

D. use time efficiently: user spends time using 
commands that act directly on data, rather than 
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time spent navigating a pull -down menu 
interface . 

E. focus time spent on becoming expert on the data 
set, rather than the user interface. 



Variations on the preferred embodiment include: 

Variation 1: Voice integration. Front end routines 
take either keyboard input or voice input, submitting 
10 word strings from either to handler functions. Voice 

word x go' acts as keyboard 'Enter' . 

Variation 2: Client server, a wireless or wired 
client, display mode set to abbreviate early. 



15 Self Diagnostics and Use as a Debugger : 

DataSea can be used to visualize the DataSea program 
itself. Besides visualizing nodes which represent 
data for the user, as described elsewhere in this 
document, in so-called Mataset nodes' the nodes that 
20 are visualized in DataSea can represent internal 

programming objects, methods or elements of DataSea 
itself (providing a sort of built-in debugger) . 

Code can be inserted into the program which will 
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visualize each method's invocation and its 
modifications of user data. 

DataSea separates the two tasks of modifying the 
values of node variables and rendering of those 
nodes. Thus DataSea can redraw the entire scene not 
only after traversing the linked nodes and 
re-calculating their internal parameters, but the 
entire scene can be re-drawn at any time during these 
calculations, even once every time a dataset-node 
variable such as "mag' is changed. 

Thus, a self -node can indicate to the user its own 
activity, by redrawing the entire scene normally and 
then highlighting itself, or drawing lines to a 
dataset-node or its elements that it is operating on. 

For instance, if a user commands DataSea to increase 
the variable "mag 1 of a node, the method which does 
that (e.g., 1 spread () ' ) can draw a line from the 
self-node representing ' spread ()' to the dataset node 
it is modifying. A simple implementation could be as 
follows : 

If the method spread () recursively calls the method 
spread_recursive () , insert a conditional call to 
touch () after spread_recursive : 

spread (Node node) { 

// for all children of node 

// spread_recursive (child) ; 
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// touch (node, child) } 

where "touch(Node caller, Node target) 1 will 
visualize the accessing and setting of variables in 
the target, where 'caller' is the spread () self -node 
and "target 1 is the dataset node being operated on. 

The method touch (Node caller, Node target) could be 
implemented as follows: 

touch (Node caller, Node target) { // Show a line 
between caller and target nodes 

clear_screen() ; // clear the screen 

render_all 0 ; // render all the nodes normally 

draw_line_between__nodes ( caller, target ); // draw a 

line 

sleep (500); // pause so user can follow what is 

happening } . 



Aspects of the invention include: 

a method and apparatus for creating nodes containing 
data, linking the nodes into a network, setting 
parameters of the nodes (node variables, and 
maintaining information specific to each node, e.g. 
mag, CS, direction of the link (polarization) . Each 
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node preferably has a name associated with which it 
can be searched from a master list; 

a method and apparatus using "context nodes" to 
modulate link connection strength (CS) and establish 
context for groups of nodes. For example, a method 
for associating a set of links and establishing a 
context node which can modulate the CS of those links 
thereby sensitizing or desensitizing them to further 
operations. The context node can also magnify the 
nodes linked by each link it modulates; 

a method and apparatus for loading data from free- 
form notes. For example, a method of taking text 
input (text from user or application, or text 
resulting from voice translation) and establishing a 
set of linked nodes therefrom by: 

creating a new node for the full text called the 
f ul 1 - 1 ext - node ; 

discarding selected words (e.g. articles) 

linking the full -text -node to individual nodes 
representing each remaining word in the full text, 
creating new nodes as needed. 

For another example, a method of converting tabular 
data, i.e., text organized into rows and columns, 
with column headings (or RDMBS data, with additional 
links for the keys of the RDBMS) , into a set of 
linked nodes, in which: 
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each column heading is represented by an AN, the 
column- heading- AN 

each cell of data is represented by a DN 

links are established between each column-heading-AN 
(representing a particular column) and those nodes 
corresponding to the cells in that column 

links are established between those nodes 
corresponding to each cell in a row from the table. 

For another example, a method of converting 

files from a computer file system or a set of files 
linked by HTML references into a set of linked nodes, 
in which: 

DNs are established representing each directory or 
file; 

links from each node are established to terms found 
in the file content, e.g., as is done in the parsing 
of notes. The procedure can filter the content 
looking for only certain tag values such as meta-tags 
or heading values (e.g. <H1> Title Here </Hl> has 
"Title Here" as heading-level - 1 in HTML) 

Another set of links can be made to ANs representing 
the suffix of files, or such ANs can be used as 
ContextNodes for all links to those files. 

For HTML files, links are to be established between 
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nodes representing HTML files and other nodes 
representing HTML files that are referenced by the 
first HTML file. 

For another example, a method of converting files 
from a computer file system, in which links are 
established between DNs representing file directory 
with DNs representing files or sub-directories in 
that directory; 

a method and apparatus for defining a POV (either a 
particular node or a new node linked to a particular 
node) ; 

a method and apparatus for defining distance (as a 
function of the number of links between nodes and the 
node type) and hierarchy from the POV and determining 
distal and proximal directions, in which: once a POV 
is set and distances calculated from it, a 
hierarchical 'tree' is defined from what was an 
arbitrarily complex cross-linked network of nodes. 
Thus, if any node 'x f has had its distance set by 
this routine, one is guaranteed to find a path from 
that node 'x' back to the POV by traveling on a path 
between nodes of ever-decreasing distance values; 

a method and apparatus for retrieving data which is 
linked into a network of nodes interacting with the 
user to better present the desired data; . 

a method for emphasizing nodes and paths by tracing 
backwards from a target node to a POV by following 
all links to nodes whereby the next node has 
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magnitude less than that of the prior node. 
Emphasizing those nodes on the path(s) shows nodes 
i between' the target and POV. By traveling backwards 
from the target node to the POV, there may be more 
5 than one node having a distance less than the target. 

This is fine, and if all paths backwards (with the 
requirement that they are consistently proximal) are 
emphasized it is fine. For example, with Bob being 
the POV, and traveling backwards from the node 
10 representing January 1999, all nodes such as notes 

and events related to Bob will be emphasized; 

a method for assigning position to each node which is 
dependent on the node's parameter values, including 
distance, CS and magnitude. Rather than setting the 
node at the calculated position immediately, it moves 
there gradually thereby showing the transition 
between states. One way to do this is to calculate 
forces on a node which are related to the difference 
between the node's current position' and an ideal 
calculated position. 

The ideal position depends on the positioning mode 
in effect : 

a Relations Mode: Most suitable for narrow queries 
where we wish to see all the links between nodes in 
25 the target data set. Nodes fan out from their 

parent; the angle dependent on the number of children 
their parent has, their distance dependent either on 
(mag) or (l/mag) ; or 

a Levels Mode: Most suitable for broad queries 
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where there are too many links between nodes in the 
target data set. Starting in the center of the 
screen, fanning out to the left dependent on their 
distance from the POV, ANs are rendered. Starting in 
the center and belonging to the right half of the 
screen are the DNs whose position moves further to 
the right the lower their mag; 

a method and apparatus for visualizing data, by 
appearance on a screen. For example, a method of 
assigning visual emphasis (color, size) to each node 
dependent on the nodes distance, CS and magnitude. 

Examples of operations performed on nodes of the 
inventive set of linked nodes (or on a sea of 
displayed representations of such nodes) include: 

'ABS' (for characterizing and understanding the 
environment of nodes and their ANs) : from a target 
node, traveling distally and upstream, find the first 
AN and emphasize it. This 'abstracts' the target node 
in terms of linked ANs. To abstract it at a higher 
level, go from those ANs to directly linked ANs which 
are both distal and upstream. This can continue to 
arbitrary level until we run out of nodes 
(realistically not very far, a handful of levels) ; 

•XABS' (for emphasizing ANs from a group of nodes, 
those ANs not having been recently visited by query 
operations: emphasizing distally from these ANs will 
result in a relatively large number of DNs being 
modified. The user may find ANs which are obviously 
related or not related to their interest, and thereby 
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significantly change the presented data set. Since 
these ANs haven't been used recently, we in effect 
triangulate the target data set from more vantage 
points. Determining categories which, when evaluated 
by the user as good or bad, have a large effect on 
narrowing the presented data set, that is helping the 
user find the target data set; 

'SIM': a method of emphasizing (magnifying) nodes 
based on their similarity to a chosen node without 
specifying values of any node (using the 'sim' 
command which emphasizes DNs linked to any or all of 
the ANs- which are linked to the chosen node(s)) ; 

"POTMAG" : a method of modifying the variable 
Potentiation of a node, and using that value to 
influence the degree of change to the variable 'mag 1 
from a subsequent operation. Thus, one operation on 
the first set of nodes may call 
Nodel . setPotentiationValue () and a subsequent 
operation on the second set of nodes may set the 
value of Nodel. mag based on 

Nodel .getPotentiationValue () . This 'primes 1 a set of 
nodes, and can operate approximately as a soft, or 
non-binary AND operation. 

Another aspect of the invention is structuring of a 
set of linked nodes (a "network") including 
"application nodes" (sometimes referred to as 
applications) . Applications are nodes containing 
code which get the information they operate on from 
traversing the network. E.g. an email node- 
application is linked to, or given a reference to, 
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the node "Bob Smith" , and upon being invoked (by the 
action function inherent in each node or otherwise) 
searches the neighborhood of the "Bob Smith" node for 
a DN linked to an AN representing email address. If 
more than one is found, the user is presented with 
the selection to choose from. Thus any node- 
application can be 'applied 1 to any node. 

One aspect of the invention is a method of accessing 
data, wherein the data is structured as a set of 
linked nodes, and each of the nodes includes at least 
one link to another one of the nodes. The method 
includes the steps of: 

preliminary to displaying representations of the 
nodes on a screen in a screen space having N 
dimensions, where N is an integer, dividing a display 
space having dimension N + 1 into an array of cells, 
wherein the dimension of the display space includes a 
size dimension; 

linking each of the nodes to at least one of the 
cells; and 

implementing a user interface which displays 
representations of at least some of the nodes on the 
screen having sizes determined by the cells to which 
said at least some of the nodes are linked, wherein 
the user interface rapidly accesses individual ones 
or groups of the nodes in response to selection of at 
least one of said representations. 

What follows is a source code listing (in the Java 
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programming language) of a computer program for 
programming a computer to implement an embodiment of 
the invention. In the listing (which consists of 
parts labeled "TL.java," "Timer . java, " 
5 "ColorObj . java, " "Link . j ava, " "Mode. java, " 

"Node. java, " "Force . java, " "GetURLInf o . j ava, " 
" Input . java, " "Populate . j ava , " "GUI . j ava, " 
"DataSea. java, " "LinkObj .java, " "VRObj .java, " and 
"nsr.java"), the object "gui" of class "GUI" is the 
10 top-level object, and instantiates the object 

"datasea" of class "DataSea" (and other objects) . 
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// This is TL.java by Rocky Nevin 

import j ava . lang . * ; 
import j ava . awt . * ; 
import j ava . ut i 1 . * ; 

import java.sql.*; // for the class Timestamp 
import j ava . io . * ; 

/* 

* class TL (TimeLine) 

* init() initializes String month_names [] 

* create_date_node() takes date string, finds or creates&links smallest 
appropriate time -node 

*/ 

class TL extends Object { 

static String month_names [] ; 
static String day__names [] ; 
static String hour_names [] ; 
static String year_names [] ; 
static GUI gui; 

public void init (GUI passed_gui) { 

gui = passed_gui; 

month_names = new String [12]; 
day_names = new String [31]; 
hour_names = new String [24]; 
year_names = new String [10]; 

month_name s [ 0 ] = " Jan " ; month_name s [ 1 ] = " Feb " ; month_names [ 2 ] = " Mar " ; 

month_names [3] ="Apr" ; month_names [4] ="May" ; month_names [5] =" Jun" ; 

month_names [6] = M Jul" ; month_names [7] ="Aug" ; month_names [8] ="Sep" ; 
month_names [9] ="Oct" ; month_names [10] ="Nov" ; month_names [11] ="Dec" ; 

System . out . print In ( "TL . init ( ) done . " ) ; 

return; 

} 

/* 

* month_f rom_double 

* return string of month based on double between 0 and 1 
*/ 

public String month_f rom_double (double val) { 
if ( (0>val) || (1.0 < val) ) { 

System . out . print In ( "month_f rom_double ( ) Error : 
month_f rom_double ( " +val+ ,r ) " ) ; 

return ( " [month_f rom_double ( ) Error : month_f rom_double ( " +val+ " ) ] " ) ; 
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} 

val *= 12; 

val *= 0.9999; // 0 OK, 12 not OK 
int m = (int) val; 
return (month_names [m] ) ; 

} 

/* 

* createJTS 

* return Node based on String s linked to caller 
*/ 

public Node createJTS (Node caller, String CNodeName, String s) { 
Node ts_node = create_date_node (s) ; 

Node CNode = gui . datasea . f ind_node_named ( CNodeName , " CN " ) ; 
if (CNode == null) { 

//System. err. print In ( "createJTS () Error: null CNode for caller 
<"+caller.Name+">, string = < " +s+" >" ) ; 

caller . link (ts_node) ; 
if (caller == ts_node) 

System. out . println ( " create_date_node ERROR (1) : caller == 

ts_node <" +ts_node .Name+" > ,r ) ; 

} 

else { 

caller .link (ts_node, CNode, "polarized"); 
if (caller == ts_node) 

System. out . print In ("create_date_node ERROR (2) : caller == 

t s_node < " +t s_node . Name+ " > " ) ; 
} 

return (ts_node) ; 
} // end createJTS 

/ * * 

** f ind_day_in_string return a string which is a date, like 1,2... 31 
* * 
*/ 

public String f ind_day_in_string (String s) { 
int i, size; 

String numbers = » l 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 "; 

numbers = numbers*" 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31"; 

String[j words = gui . input . string_to_ar ray (s) ; 
size = words . length; 
for (i=0; i<size; i++) { 

if (0<=numbers . indexOf (words [i] ) ) J 
return (words [i] ) ; 

} 
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return ( (String) null) ; 

} // end f ind_day_in_string 



/* 

* create_date_node 

* search for year, month, day, time, create node for particular 
date 

* using finest resolution appropriate, create nodes for time 
foundation 

* -create day | month | year offsets 

* -create lowest | highest resolution nodes, link them 
*/ 

public Node create_date_node (String s) { 

double x=0, year_of f set=0 , month_of f set=0 , day_of f set=0 , day_value=0; 
boolean year_found= false, month_found= false, day_found= false ; 
Node year_node=null, month_node=null , day_node=null ; 

Node f inest_grain_node=null; // The finest-grained TL node to which we'll link 
DN to 

Node coarsest_grain_node=null; // The largest -grained TL node to which we'll 

link TimeLine to 

Node last_node=null ; 

String year_str=""; 

String month_str=" " ; 

String day_str=" " ; 

String ret_ str=" 11 ; 

double TimeLineSizeY = gui . datasea . pop . TimeLine . size_Y; 
double TimeLineSizeX = gui . datasea. pop .TimeLine . size_X; 
double TimeLineX = gui . datasea .pop .TimeLine .X; 
double TimeLineY = gui . datasea . pop . TimeLine . Y; 
double base_year_of f set = 1.0/2; 
double base_month_of f set = base_year_of f set/12 ; 
double base_day_of f set = base_month_of f set/31 ; 
double default_size_X = 2 ; 

int delta_x =2; // used as offset between year, month, day 

// 

// LOOK FOR XEAR 

if (0 <= s.indexOf ("1999") ) { 

year_str = "1999"; 

year_offset = 0; 

year_offset = base_year_of f set * 0 * TimeLineSizeY; 

year_found = true; 

} 

if (0 <= s.indexOf ("2000")) { 
year_str = "2000"; 

year_offset = base_year_of f set * 1 * TimeLineSizeY; 
year_found = true; 

} 

// 
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// LOOK FOR MONTH 

if (0 <= s.indexOf ("Jan") ) { 

month_of f set = base_month_of f set*0 * TimeLineSizeY; 

month_str = "Jan"; 

month_f ound = true; 

} 

if (0 <= s.indexOf ("Feb") ) { 

month_of f set = base_month_of f set*l * TimeLineSizeY; 
month_str = "Feb"; 
month_f ound = true; 
} 

if (0 <= s.indexOf ("Mar") ) { 

month_of f set = base_month_of f set* 2 * TimeLineSizeY; 
month_str = "Mar"; 
month_found = true; 
} 

if (0 <= s.indexOf ("Apr") ) { 

month_offset = base_month_of f set*3 * TimeLineSizeY; 
month_str = "Apr" ; 
month_f ound - true ; 
} 

if (0 <= s.indexOf ("May") ) { 

month_offset = base_month_of f set* 4 * TimeLineSizeY ; 
mont h_s t r = " May " ; 
month_found = true; 
> 

if (0 <= s. indexOf (" Jun") ) { 

month_offset = base_month_of f set*5 * TimeLineSizeY; 
month_str = "Jun" ; 
month_found = true; 

} 

if (0 <= s.indexOf ("Jul") ) { 

mont h_off set = base_month_of f set* 6 * TimeLineSizeY; 
month_str = "Jul"; 
mont h_f ound = true; 
} 

if (0 <= s.indexOf ("Aug") ) { 

month_offset = base_month_of f set* 7 * TimeLineSizeY; 
month_str = "Aug" ; 
month_found = true; 
} 

if (0 <= s.indexOf ("Sep") ) { 

month_offset = base_month_of f set* 8 * TimeLineSizeY; 
month__str = "Sep"; 
mont h_f ound = true; 
} 

if (0 <= s.indexOf ("Oct") ) { 

month_offset = base_month_of f set*9 * TimeLineSizeY; 
month_str = "Oct"; 
month found = true; 
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} 

if (0 <= s.indexOf ("Nov") ) { 

month_offset = base_month_of f set*10 * TimeLineSizeY; 
month_str = "Nov" ; 
month_found = true; 
} 

if (0 <= s.indexOf ("Dec") ) { 

month_offset = base_month_of f set* 11 * TimeLineSizeY; 
month_str = "Dec"; 
month_found = true; 
} 

// 

// LOOK FOR DAY 

if ( (day_str = f ind_day_in_string (s) ) != null) { 
day_value = 

(double) (GUI. java_lang_double . valueOf (day_str) ) . doubleValue ( ) ; 

day_offset = base_day_of f set * (day_value-l) * TimeLineSizeY; 
day_found = true; 

} 

// 

year_offset += TimeLineY; 
month_offset += year_offset; 
day_offset += month_of f set ; 
// 

if (day_found) { 

ret_str = ret_str + day_str+ " " ; 

if (day_value == 2 && month_str=="Mar" ) 

GUI . P ( 0 , " create_date_node " , " > day 2 for 

<"+day_str+" : "+month_str+" : " +year_str+" >" ) ; 

day_node = gui . datasea .pop . create_node (day_str+" "+month_str+" 

"+year_str, "Event") ; 

//day_node = gui . datasea . pop . create_node_f orced (day_str+" " +month_str+" 

"+year_str, "Event") ; 

day_node.Y = day_offset; 
last_node = day_node; 
f inest_grain_node = day_node; 
coarsest_grain_node = day_node; 

> 

if (month_f ound) { 

ret_str = ret_str + month_str+ " " ; 

month_node = gui . datasea . pop . create_node (month_str+" "+year__str, "Event") 
if (last_node != null) { 

month_node.link(last_node) ; 
if (last_node == month_node) 

System. out . print In ("cr eat e_date_node ERROR: last_node 
month_node < " +month_node . Name+ " > " ) ; 
} 

month_node.Y = month_of f set ; 
last node = month_node; 
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if (f inest_grain_node « null) 

f inest_grain__node = month_node; 
coarse st_grain_node = month_node; 

} 

if (year_found) { 

ret_str = ret_str + year_str ; 

year_node = gui . datasea .pop . create_node (year_str, "Event " ) ; 
if (last_node != null) { 

year_node . link ( last_node) ; 
if (last_node == year_node) 

System. out . print In ( "cr eat e_date_node ERROR: last_node == 
year_node < " +year_node . Name+ " > " ) ; 

} 

year_node.Y = year_of f set ; 

last_node = year_node; 

if (f inest_grain_node == null) 

f inest_grain_node = year_node; 
coarse st_grain_node = year_node; 

} 

if (year_node != null) { 

year_node.X = TimeLineX+delta_x; 
year_node . size_X = def ault_size_X; 

year_node . size_Y = 0.95 * TimeLineSizeY * base_year_of f set ; 
} 

if (month_node != null) { 

month_node . X = TimeLineX+2*delta_x; 
month_node . size_X = def ault_size_X; 

month_node. size_Y = 0.95 * TimeLineSizeY * base_month_of f set ; 
} 

if (day_node != null) { 

day_node.X = TimeLineX+3*delta_x; // + (31-day_value) ; 
day_node . s i z e_X = de f au 1 t_s i z e_X ; 

day__node . size_Y = 0.95 * TimeLineSizeY * base_day_of f set ; 

// day_node.Y += (Math. random () -0 . 5) ; 

} 

Node event_node = gui . datasea . pop . create_node { ret_str , " Event " ) ; 
event_node . X = f inest_grain_node . X+2 ; 
event_node . Y = f inest_grain_node . Y ; 
event_node . size_X = def ault_size_X; 

event_node. size_Y = 0.95 * TimeLineSizeY * base_day_of f set ; 

// link to finest grain time node . . . 

if (event_node == f inest_grain__node) 

; //System. out .print In ("cr eat e_date_node ERROR: event_node == 
f inest_grain_node <"+f inest_grain__node .Name+" >" ) ; 
else 

event node . 1 ink ( f inest_grain_node ) ; 
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// link to TimeLine node . . . 

gui .datasea. pop. TimeLine . link (coarse st_grain_node) ; 

5 return (event_node) ; 

} // end create_date_node 

} // end class TL (TimeLine) 
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// This is Timer. java 



by Rocky Nevin 



/* 

* class Timer 
*/ 

class Timer extends Object { 

long TS1=0, TS2=0; 

String TSl_name, TS2_name; 

// CONSTRUCTOR 
Timer () { 
} 

/** 

** start_timer 

* ★ 

*/ 

public void start_timer (String timer_name) { 
int i ; 

TS1 = java.lang.System.currentTimeMillisO ; 
TSl_name = timer_name; 
} // end start_timer 

I * * 

** end_timer 

* * 

*/ 

public void end_timer (String timer_name) { 
int i; 

if (timer_name . equals (TSl_name) ) { 

TS2 = java . lang. System. currentTimeMill is () ; 
TS2_name = timer_name; 
if (GUI. Debug == -1) 

GUI . P ( (-1) , "end_timer" , "Time for "+TSl_name+ 

milliseconds" ) ; 
} 

else 

if (GUI. Debug == -1) 

GUI. WARNING ( (-1) , M end_timer " , "Wrong name: TS 
TS2="+TS2_name) ; 
) // end end_timer 



} // end class Timer 



// This is ColorObj . java 



by Rocky Nevin 



import j ava . awt . * ; 



class ColorObj extends Object { 

static Color VeryLightGrey, LightGrey, Grey, DarkGrey, VeryDarkGrey , 
VeryLightRed, LightRed, Red, DarkRed, Crimson, VeryLightGreen, LightGreen, 
Green, DarkGreen, Blue, VeryLightBlue , LightBlue, DarkBlue, DarkYellow, Yellow, 
Light Yellow, VeryLightYellow,- 

Static int MAX_BACKGROUND_C0LORS = 4 ; 
static int background_color_index=0 ; 

static Color background_color_array [] = new Color [MAX JBACKGROUND_COLORS ] ; 



// Color TempColor; 

static Color RedArray[] = new Color [16] 

static Color PurpleArray [] = new Color [16] 

static Color BlueArray[] = new Color [16] 

static Color GreenArray [] = new Color [16] 

static Color BlackArray[] = new Color [16] 



public void ColorObj () { 
init () ; 
} 

public void init 0 { // ColorObj . init 
int i ; 

background_color_array [0] = new Color (0x444444 ) 

background_color_array [1] = new Color (0x112211) 

background_color_array [2] = new Color (0x111122 ) 

background_color_array [3] = new Color (Oxfffff f) 

VeryLightGrey = new Color ( Oxeeeeee) ; 

LightGrey = new Color ( Oxaaaaaa) ; 

Grey = new Color ( 0x777777) ; 

DarkGrey = new Color (0x555555) ; 

VeryDarkGrey = new Color (OxllOaOa) ; 

DarkYellow = new Color ( 0x222200) ; 

Yellow = new Color (0xaaaa44 ) ; 

Light Yellow = new Color ( 0xaaaa44 ) ; 

VeryLightYellow = new Color (Oxffff 88 ) ; 

VeryLightRed = new Color (Oxffdddd) ; 

LightRed = new Color (Oxff 4444 ) ; 

Red = new Color (0xaa4444 ) ; 

DarkRed = new Color ( 0x663333 ) ; 

LightRed = new Color (Oxff 4444) ; 

Crimson = new Color ( 0xee22 99) ; 

DarkGreen = new Color ( 0x336633 ) ; 

Green = new Color (0x44aa44 ) ; 

LightGreen = new Color (0x77aa77) ,- 
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VeryLightGreen = new Color (Oxddffdd) ; 
Blue = new Color (0x4444aa) ; 
LightBlue = new Color (0x777799) ; 
VeryLightBlue = new Color ( Oxddddff) ; 
DarkBlue = new Color (0x3 33366 ) ; 

/**************************************************************** 

for (i=0; i<16; i++) 

RedArray[i] = new Color ( (i) *0x001111 + OxccOOOO) ; 
for (i=0; i<16; i++) 

PurpleArray [i] = new Color ( (i) *0xll0011 + 0xcc0044); 
for (i=0; i<16; i++) 

BlueArray[i] = new Color (( i) *0xllll00 + OxOOOOcc) ; 
for (i=0; i<16; i++) 

GreenArray [i] = new Color (( i) *0xll0011 + OxOOccOO) ; 
for (i=0; i<16; i++) 

BlackArray [i] = new Color((i) * 0x111111); 
*************************************************************/ 

// IF DEMO MODE, for clarity 

for (i=0; i<16; i++) 

RedArray[i] = new Color ( (i) *0xll0000 + (i/2) *0x001111) ; 
for (i=0; i<16; i++) 

PurpleArray [i] = new Color ( (i) *0xll0011 + (i/2) *0x001100) 
for (i=0; i<16; i++) 

BlueArray[i] = new Color ( (i) *0x000011 + (i/2) *0xllll00) ; 
for (i=0; i<16; i++) 

GreenArray [i] = new Color ( (i) *0x001100 + (i/2) *0xll0011) ; 
for (i=0; i<16; i++) 

BlackArray [i] = new Color (<i) * 0x111111); 
// BlackArray has 16 elements, 0th is black, 10th is white, we use first 10, 
index= (10 -mag) 

} // end ColorOb j . init 

/* 

** set_color_f rom_TS 
*/ 

public void set_color_f rom_TS (Graphics graphics, Node node) { 
int index=20; 
double Tdiff, val ; 
Color color=Color. yellow; 

if (node==null) 
return ; 

else 

Tdiff = GUI . currentJTS - node.TS; 



if (node . isForm) { 
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graphics . setColor (Color . white) ; 

return; 

} 

if (Tdiff < 2000) { 

val = 0 . 1* (4 000 . 0 -Tdiff ) /4 000 . 0 * node . del ta_mag; 

index - (int)((val + 1.0) * 10); // range is 0 to +infinity 

switch (index) { 



case 


0 : 


color = 


BlueArray [15} 


• break; 


case 


1 : 


color = 


BlueArray [14 3 


■ break; 


case 


2 : 


color = 


BlueArray [13] 


,* break ; 


case 


3 : 


color — 


BlueArray [12] 


break ; 


case 


4 : 


color = 


BlueArray [11] 


; break; 


case 


5 : 


color = 


BlueArray [10] 


; break ; 


case 


6 : 


color = 


BlueArray [9] ; 


break ; 


case 


7 : 


color = 


BlueArray [8] ; 


break; 


case 


8: 


color = 


BlueArray [7] ; 


break ; 


case 


9 : 


color = 


BlueArray [6] ; 


break ; 


case 


10 


color 


= RedArr ay [ 8 ] ; 


break; 


case 


11 


color 


= RedArray [9] ; 


break ; 


case 


12 


: color 


= RedArray [ 9 J ; 


break ; 


case 


13 


: color 


= RedArray [10] 


; break; 


case 


14 


: color 


= RedArray [10] 


; break ; 


case 


15 


: color 


= RedArray [10] 


; break ; 


case 


16 


: color 


= RedArray [11] 


; break ; 


case 


17 


: color 


= RedArray [11] 


; break ; 


case 


18 


: color 


= RedArray [12] 


; break ; 


case 


19 


: color 


= RedArray [13] 


; break ; 


case 


20 


: color 


= RedArray [15] 


; break ; 


default 


: color 


= Crimson; break; 



} 

graphics . setColor (color) ; 
} 

else // neither Tdiff < 4000 nor val! =10 
set_color_f rom_mag (graphics, node) ; 

return ; 
} // end set_color_f rom_TS 

/* 

** set_color_f or_relations 
*/ 

public void set_color_f or_relations (Graphics graphics, Node parent, Node child) 

{ 

int index=20; 

double Tdiff, val; 

Color color=Color. yellow; 
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if (child==null) 

color = Crimson; 
else if (parent --null) 

color = Red; 

else { 

if (background_color_index < MAX_BACKGR0UND_COLORS - 1 ) 
index = (int) ( 4 +Math. floor (child .mag) ) ; 

else 

index = (int) (Math . floor (1 . 5* (10-child. mag) ) ) 

if (index>=0 && index<16) 

color = BlackArray [index] ; 

else 

if (index<0) 

color = Red; 

else 

if (index>16) 

color = Blue; 

/**************************************************** 
switch (index) { 

case 0: color = BlackArray [3] ; break; 
case 1: color = BlackArray [3] ; break; 
case 2: color = BlackArray [3] ; break; 
case 3: color = BlackArray [2] ; break; 
case 4: color = BlackArray [2] ; break; 
case 5: color = BlackArray [2] ; break; 
case 6: color = BlackArray [1] ; break; 
case 7: color = BlackArray [1] ; break; 
case 8: color = BlackArray [1] ; break; 
case 9: color = BlackArray [0] ; break; 
case 10: color = BlackArray [0] ; break; 
case 11: color = BlackArray [15] ; break; 
case 12: color = BlackArray [15] ; break; 
case 13: color = BlackArray [15] ; break; 
case 14: color = BlackArray [15] ; break; 
case 15: color = BlackArray [15] ; break; 
case 16: color = BlackArray [15] ; break; 
default: color = Crimson; break; 

} 

************************************************/ 

} 

graphics . setColor (color) ; 
return ; 

} // end set_color_for_relations 
/* 

** set_color_f rom_mag 
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*/ 

public void set_color_f rom_mag (Graphics graphics, Node node) { 
double mag=0; 

if (node . isMarked) { 

graphics . setColor ( (Color . cyan) . darker ( ) ) ; 

} else 

if (GUI . showBoundaries) { 

switch ( (int)node.Tdist) { 

case 1: graphics . setColor (DarkGreen) ; break; 

case 2: graphics . setColor (LightGreen) ; break; 

case 3: graphics . setColor (VeryLightGreen) ; break; 

case 4: graphics . setColor (LightRed) ; break; 

case 5: graphics . setColor (DarkRed) ; break; 

default: graphics. setColor (Crimson) ; break; // shouldn't 

be here 

} 

} else { 

if (node != null) 

mag = node . mag ; 
// FIRST SET OF COLORS IS FOR DARK BACKGROUNDS 

if (background_color_index < MAX_BACKGROUND_COLORS - 1 ) { 
if (node.isAN) { 

if (mag >= 0 && mag <= Node . MAX_MAG) { 
if (mag <= Node .MED_MAG) 

graphics. setColor (DarkGreen) ; 
else if (mag <= Node . BIG_MAG) 

graphics . setColor (Green) ; 
else if (mag <= Node . MAX_MAG-0 . 1) 

graphics . setColor (LightGreen) ; 
else if (mag >= Node . MAX_MAG -0.1) 

graphics . setColor (VeryLightGreen) ; // maximum 

brightness 

else 

graphics . setColor (Crimson) ; // shouldn't be here 

} 
} 

else 

if (node.isCN) { 

if (mag >= 0 && mag <= Node . MAX_MAG) { 
if (mag <= Node . MED_MAG ) 

graphics . setColor (DarkBlue) ; 
else if (mag <= Node . BIG_MAG) 

graphics . setColor (Blue) ; 
else if (mag <= Node . MAX_MAG -0.1) 

graphics. setColor (LightBlue) ; 
else if (mag >= Node . MAX_MAG- 0 . 1 ) 

graphics. setColor (VeryLightBlue) ; // maximum 

brightness 
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brightness 



else 

graphics . setColor (Crimson) ; // shouldn't be here 

} 
} 

else 

if (node.isDN) { 

if (mag >= 0 mag <= Node . MAX_MAG) { 
if (mag <= Node . MED__MAG) 

graphics . setColor (DarkYellow) ; 
else if (mag <= Node . BIG_MAG) 

graphics . setColor (Yellow) ; 
else if (mag <= Node . MAX__MAG -0.5) 

graphics . setColor (Light Yellow) ; 
else if (mag >= Node . MAX_MAG -0.5) 

graphics . setColor (VeryLight Yellow) ; // maximum 

else 

graphics. setColor (Crimson) ; // shouldn't be here 

} 
} 

else 

if (mag >= 0 && mag <= Node . MAX_MAG) { 
if (mag <= Node . MED_MAG ) 

graphics . setColor (DarkGrey) ; 
else if (mag <= Node . BIG_MAG) 

graphics . setColor (Grey) ; 
else if (mag <= Node . MAX_MAG- 0 . 1 ) 

graphics . setColor (LightGrey) ; 
else if (mag >= Node . MAX_MAG -0.1) 

graphics . setColor (Very LightGrey) ; // maximum 

brightness 

else 

graphics . setColor (Crimson) ; // shouldn't be here 
} 



} else { 

// SECOND SET OF COLORS IS FOR LIGHT BACKGROUND 
if (node . isEvent) { 

if (mag <= Node . MED_MAG) 

graphics . setColor (VeryLightGrey) ; 
else if (mag <= Node .BIG_MAG) 

graphics . setColor (LightGrey) ; 
else if (mag <= Node . MAX_MAG- 0.1) 

graphics . setColor (Grey) ; 
else if (mag >= Node . MAX_MAG- 0 . 1 ) 

graphics . setColor (DarkGrey) ; // maximum contrast 

else 

graphics . setColor (Crimson) ; // shouldn't be here 
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} 

else { 

if (mag >= 0 && mag <= Node . MAX_MAG ) 

graphics . setColor (BlackArray [ (int) Math. floor (1 . 5* (10- 

mag) ) ] ) ; 

else 

graphics. setColor (Color. black) ; // maximum brightness 

} 
} 

} 

/ /graphics . setColor (BlackArray [ (int) Math. floor (mag) ] ) ; 

return; 

} // end set_color_f rom_mag 



/* 

** set_link_color_f rom_mag 

* *************************************************************************** 
public void set_link_color_f rom_mag (Graphics graphics, Node node) { 
double mag=0; 
if (node != null) 

mag = node . mag ; 
if (mag > 0 mag < 10) 

graphics . setColor (BlueArray [ (int) Math. floor (mag) ] ) ; 

else 

graphics . setColor (BlueArray [ (int) 9] ) ; //default maximum 

darkness 

return; 

} // end set_link_color_f rom_mag 
****************************************************************/ 
} // End of class ColorObj 
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// This is Link.java 



by Rocky Nevin 



import j ava . lang . * ; 
/* 

* This is Link.java by Rocky Nevin 

* ©version 0.4, 3/12/98 

*/ 

public class Link extends Object { 

static public final double DEFAULT_CS = 1.0; 

static public final double MED_CS = 1.0; 

static public final double MIN_CS = 0.1; 

static public final double MAX_CS = 1.0; 

static public final double DELTA_CS = 0.5; 

String Name=" " ; 

String Type=" 11 ; 

String Desc_R=" " ; 

String Desc_L=" " ; 

double CS_R=DEFAULT_CS, CS_L=DEFAULT_CS ; 

Node Node; 

Node CNode=null; 

Node NodeL, NodeR; 

Link NextLink; 

VRObj VR_L, VR_R; 

boolean should_we_pos_L=true, should_we_pos_R=true ; 

boolean isPolarized=f alse; // Bi-directional Link is polarized 

/** 

* * Link CONSTRUCTORS 

* ★ 

*/ 

public LinkO { 
VR_L = new VRObj ( ) ; 
VR_R = new VRObj () ; 
// RECURSES this. Node = new Node(); 

} 

/** 
** set_CS 

* * 

*/ 

public void set_CS (double new_CS) { 
this.CS_L = new_CS; 
this.CS_R = new_CS; 

if (this.CS_R > 5) 

this.CS R - (5+this.CS_R) /2; 
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if (this.CS_L > 5) 

this.CS_L = (5+this.CS_L) /2 ; 
if (this.CS_R < DELTA_CS) 

this.CS_R = DELTA_CS; 
if (this.CS_L < DELTA_CS) 

this.CS_L = DELTA_CS; 

} // end set_CS 
/** 

* * more_CS 

* * 

*/ 

public void more_CS () { 

this.CS_R += DELTA_CS; 

this.CS_L += DELTA_CS; 
if (this.CS_R > 5) 

this.CS_R = <5+this.CS_R) /2; 
if (this.CS_L > 5) 

this.CS_L = (5+this.CS_L) /2; 

} // end more_CS 
/** 

** less_CS 

* * 

*/ 

public void less_CS () { 
this.CS_R -= DELTA_CS; 
this.CS_L -= DELTA_CS; 
if (this.CS_R < DELTA_CS) 

this.CS_R = DELTA_CS; 
if (this.CS_L < DELTA_CS) 

this.CS_L = DELTA_CS; 

} // end less_CS 



/** 

* * addCNode 

* ★ 

*/ 

public void addCNode (Node CNode) { // CSs 
int i, size; 
Node child; 

//System. out. println ( "Link . addCNode: adding "+CNode .Name+" to this Link and 
versa" ) ; 

this. CNode = CNode; 
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if (! CNode .Context Links .contains (this) ) { 

CNode . ContextLinks . addElement (this) ; 
// System. out .print In ("Link. addCNode : NEW: "+CNode .Name+" modulates " + 

CNode. ContextLinks . size () +" links."); 

CNode. isCN = true; 

) 

//else 

// System. out .print In ("Link. addCNode: ALREADY ADDED: " +CNode .Name+" 

modulates "+ CNode . ContextLinks . size ( ) +" links."); 
} // end addCNode 

/** 

** setLinks_should_we_pos in single-caller version positioning 6/22/99 
* * 
*/ 

public void setLinks_should_we_pos (Node node, boolean value) { 
int which=0 ; 

if (node == null) { 

System. out .print ln(" get Nodes VRparms () : ERROR, passed node is null"); 

return; 

} 

// determine if we should get Left or Right 
if (node == this.NodeL) // use Left parms 
s hou 1 d_ we_p o s_L = value; 

else 

if (node == this.NodeR) // use Right parms 
should_we_pos_R = value; 

return ,- 

} // end setLinks_should_we_pos 



I * * 

** should_we_pos in single-caller version positioning 6/22/99 
* * 

*/ 

public boolean should_we_pos (Node node) { 
int which=0; 

if (node == null) { 

System. out . print In ( "getNodesVRparms () : ERROR , passed node is null"); 
return (false) ; 

} 

// determine if we should get Left or Right 
if (node == this.NodeL) // use Left parms 
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return (should__we_pos_L) ; 

else 

if (node » this.NodeR) // use Right parras 
return (should_we_pos_R) ; 

return (true) ; // have to have a default 
} // end should_we_pos 



10 h 

** setNodesVRparms get VR parms in link from passed node 
*/ 

public void setNodesVRparms (Node node) { 
15 int which=0; 



if (node == null) { 

System. out .print In ( "get Nodes VRp arms () : ERROR, passed node is null"); 
return; 

20 } 



// determine if we should get Left or Right 
if (node == this.NodeL) // get Left parms 
which = 1; 

2 5 else 

if (node == this.NodeR) // get Right parms 
which = 2; 



3 0 // now make assignments, make Left negative of Right, since offsets are simple 

switch (which) { 

case 1: // Set link's Left X to node's X, link's Right X to -nodes 's X 
node.X = this.VR_L.X; 
node.Y = this.VR_L.Y; 

3 5 break; 

case 2: // Set link's Right X to node's X, link's Left X to -nodes ' s X 
node.X = this.VR_R.X; 
node.Y = this.VR_R.Y; 
break ; 

4 0 default : 

System. out. print In C'getNodesVRparmsO : ERROR, which = "+which) ; 
break ; 

} 

return; 

4 5 } // end setNodesVRparms 



** set Links VRparms set VR parms in link from passed node 

50 
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*/ 

public void setLinksVRparms (Node node) { 
int which=0; 

if (node == null) { 

System. out. print In (" setLinksVRparms () : ERROR, passed node is null"); 

return; 

} 

// determine if we should set Left or Right 
if (node == this.NodeL) // set Left parms 
which = 1; 

else 

if (node == this.NodeR) // set Right parms 
which = 2; 

If now make assignments, make Left negative of Right, since offsets are simple 
switch (which) { 

case 1: // Set link's Left X to node's X, link's Right X to -nodes ' s X 
this.VR_L.X = node.X; 
this.VR_L.Y = node.Y; 
this.VR_R.X = -this.VR_L.X; 
this.VR_R.Y = -this.VR_L.Y; 
break; 

case 2: // Set link's Right X to node's X, link's Left X to -nodes 's X 

this.VR_R.X = node.X; 

this.VR_R.Y = node.Y; 

this.VR_L.X = -this.VR_R.X; 

this.VR_L.Y = -this.VR_R.Y; 

break; 
default : 

System. out .println( "setLinksVRparms () : ERROR, which = "+which) ; 
break; 

} 

return ; 

} // end setLinksVRparms 



** dumpLink 
* ★ 

*/ 

public void dumpLink () { 

String nodeLname="null" , nodeRname="null" ; 

if (NodeL != null) 

nodeLname = NodeL. Name; 
if (NodeR 1= null) 

nodeRname = NodeR. Name; 
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System. out .print In { n Link. dumpLink: • » +nodeLname+" ' > ' M +nodeRname+" ■ 

X="+this.VR_R.X) ; 

System. out .print In ("Link. dumpLink: ' "+nodeRname+ n • > ' M +nodeLname+" 1 

5 X="+this.VR_L.X) ; 

} // end dumpLink 

10 public class VRObj extends Object { 

// some elements for data, stubbed now 

double X, Y, Z; // relative positions in VR space, typically 

// positions offsets from another node 
double size_x, size_y, size__z; // sizes 
]_5 // VRShape Shape; // data and methods to render semi-realistically, for VR 

public VRObj () { 

} 

2 0 } // end internal class VRObj 



} // End of class Link 

25 
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// This is Mode.java by Rocky Nevin 

class Mode extends Object { 
String Name =" AND" ; 
String spread_mode= " distal " ; 
String lines_mode="all" ; 
String position_mode= "Rel ' " ; 
String rende r _mode ="VR"; 
String line_mode="radial M ; 
boolean do_j?otentiation = false; 

public ModeO { 
super ( ) ; 

} // end Mode creator 

/** 

** set_mode_buttons 
*/ 

void set_mode_buttons { ) { 

//GUI .button_spread. set Label ("Spread " +spread_mode) ; 
GUI . button_render . set Label ( "Render 11 +render_mode) ; 
GUI . but t on_l ine s . set Label ("Lines "+lines_mode) ; 
GUI .but ton_posit ion. setLabel ( "Pos 'n " +position_mode) ; 
GUI . but ton_potentiat ion. setLabel ("Pot "+do_potentiation) ; 
if (do_potentiation) 

GUI . button_potentiation . setBackground (ColorObj . Light Red) ; 

else 

GUI .butt on_potentiat ion. setBackground (ColorObj . LightGrey) ; 
GUI. button_drawText. setLabel ("Text " +GUI . drawText ) ; 
if (GUI .drawText) 

GUI . button_drawText . setBackground (ColorObj . LightRed) ; 

else 

GUI . but t on_drawText . setBackground (ColorObj .LightGrey) ; 
} // end set_mode_buttons 

/★ ★ 

* * toggle_draw_text 
** 

*/ 

public void toggle_draw_text () { 

GUI. drawText = I GUI . drawText ; 

GUI . P ( 1 , " toggle_draw_text " , " GUI . drawText = " +GUI . drawText ) ; 

set_mode_buttons ( ) ; 

} 



I * * 
* 

*/ 



method set_spread_mode 



void set_spread_mode (String str) { 

spread_mode = str; 
GUI . P (1, "Mode. set_spread_mode" , "Mode "+str) ; 
set_mode_buttons () ; 
} // end set_spread__mode 

/** 

* method set_render_mode 
*/ 

void set_render_mode (String str) { 

renderjnode = str; 
GUI . P ( 0 , "Mode . set_renderjnode" , "Mode ■■ +str) ; 

set_mode_buttons () ; 

} // end set_render_mode 

/** 

* method set_position_mode 
*/ 

void set_position_mode (String str) { 

posit ion_mode = str; 
GUI . P (1 , "ModMode. set_jposition_mode" , "Mode "+str) ; 
set_mode_buttons () ; 
} // end set_position_mode 

/★* 

* method toggle_lines_mode 
*/ 

void toggle_lines_mode () { // radial, distal, proximal 
GUI . P (1, "word_selector" , "lines_mode = " +lines_mode) ; 
if (lines_mode . equals ( "radial") ) { 
lines_mode = "distal"; 

} 

else if ( line s_mode .equals ("all" ) ) 

lines_mode = "none"; 
else if ( lines_mode. equals ("none") ) 

lines_mode = "local"; 
else if (lines_mode .equals ("local") ) 

1 ine s_mode = " a 1 1 " ; 
set_mode_buttons ( ) ; 
} // end toggle_lines_mode 

/** 

* method toggle_spread_mode 
*/ 

void toggle_spread_mode () { // radial, distal, proximal 
GUI . P (1 , "word_s elector" , " spread_mode = " +spread__mode) ; 
if ( spread_mode. equals ("radial") ) { 

spread_mode = "distal"; 

} 
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else if ( spread_mode. equals (" distal" ) ) 
spread_mode = "proximal"; 

else if <spread_mode. equals { "proximal") ) 
spread_mode = "radial"; 

set_mode_buttons ( ) ; 

} // end toggle_spread_mode 



/* * 

* method toggle_position_mode 
*/ 

void toggle_position_mode () { // relations, levels 
if (pos it ion_mode. equals ("Rel' ") ) { 

position_mode = "Grid"; 

Force . cal cPOVPres sure = true; 

Force . calcParentPressure=f alse; 
System. out .print In ( "toggle_position_mode : setting position_mode to 
"+position_mode) ; 

} 

else if (pos it ion_mode. equals ("Grid" ) ) { 

posit ion_mode = "Lvls"; 

Force . cal cPOVPres sure = true ; 

Force . calcParentPressure=f alse ; 
System, out .print In ( 11 toggle_pos it ion_mode : setting position_mode to 
"+positionjnode) ; 

} 

else if (pos i t ion__mode . equals ( "Lvls" ) ) { 

posit ion_mode = "Rel" 1 ; 

Force . calcPOVPressure=f alse; 

Force . calcParentPressure=true; 
System, out .print In ( "toggle_jposition_mode: setting position_mode to 
"+position__mode) ; 

} 

GUI .butt on_pres Parent . setLabel ( 11 Parent = "+Force . calcParent Pressure) 
if (Force . calcParentPressure) 

GUI . but ton_pres Parent . setBackground (ColorObj . LightRed) ; 

else 

GUI .button_presParent . setBackground (ColorObj . LightGrey) ; 
GUI . button_presPOV . setLabel ( " POV= " +Force . calcPOVPressure) ; 
if (Force . calcPOVPressure) 

GUI . but ton__presPOV. setBackground (ColorObj . LightRed) ; 

else 

GUI .but ton_presPOV. setBackground (ColorObj . LightGrey) ; 
set_mode_buttons () ; 
} // end toggle_position_mode 



/** 

* method toggle_spread_mode 
*/ 

void toggle_line_mode () { // 
if (line_mode .equals ("radial" ) ) 
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line_mode = "distal"; 
else if (line_mode .equals ( "distal") ) 

line_mode = "proximal"; 
else if (line_mode .equals ( "proximal" ) ) 
5 line_mode = "radial"; 

set_mode_buttons { ) ; 
} // end toggle_line_mode 

/ * * 

10 /** 

* method toggle_render_mode 
*/ 

void toggle_render_mode () { 

System. out . print In ( "Render_mode was = " +render_mode) ; 
15 if (render_mode . equals ( "VR" ) ) 

render_mode = "Rel 1 "; 
else if (render_mode. equals ("Rel » ") ) 

renderjnode = "VR" ; 
set_mode_buttons ( ) ; 
2 0 System . out . print In ( " Render_mode is = " +render_mode) ; 

} // end toggle_render_mode 

/** 

* method toggle_potentiation_mode 

25 */ 

void toggle__do_potentiation () { 
do__potentiation = ! do_potentiation; 
set_mode_buttons () ; 
} // end toggle_do_potentiation 



30 



} // end Object Mode 



35 
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// This is Node.java 



by Rocky Nevin 



import j ava . lang . * ; 
import java.util.*; 
import j ava . awt . * ; 

/* 

* This is Node.java by Rocky Nevin 

* ©version 0.4, 3/12/98 

* by Rocky Nevin 
*/ 

// link() now uses a Vector of Link objects 

// position_children() returns if TS<=G.Ccurrent_TS and wiggles Root node 
// 6/29/99 added Link.CS_R&L, set other node.CS to it in getNodeAtLink ( ) 

public class Node extends Object { 

static final int MAX_CHI LDREN = 90; 
static final int MAX_TEXT_DATA_LINES = 120; 
Static final int MAX_NORMALIZED_MAG = 10; 
static public final double DELTA_MAG = 1.0; 
static public final double MIN_MAG = 0.2; 
static public final double SMALL_MAG = 1.0; 
static public final double MED_MAG = 4.0; 
static public final double BIG_MAG = 7.0; 
static public final double MAX_MAG = 10.0; 
static public final double EMPHAS I Z ED_MAG = 15.0; 
static public final double HYPER_MAG = 20.0; 

static public final double B ARE L Y_V I S I BL E_MAG = SMALL_MAG + 0.1; 
static public final double BARELY_INVISIBLE_MAG = SMALL_MAG - 0.1; 
static public final double DEFAULT_MAG = MED_MAG-0.5; 
boolean Debug=false,- 
boolean StopSpread=f alse ; 

boolean isFrozen=f alse ; // Temporary freezing of position 

boolean isPolarized=true; // Bi-directional Link is polarized 

boolean isSelected=f alse; 

boolean isBB=false; 

boolean isMarked=f alse; 

boolean isFile=f alse; // 

boolean isDirectory=f alse; // 

boolean isPN=false; // is Potentiation node 

boolean isCN=false; // is Context node 

boolean isAN=false; // is Abstract node 

boolean isON=false; // is Abstract node 

boolean isDN=false; // is Data node 

boolean isURL=false; // is URL node 

boolean isPOV=false; 

boolean isEvent=f alse ; 

boolean isForm=f alse ; 
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boolean isLayer=f alse; 
boolean there_is_data=f alse ; 
boolean data_access_f ailed=f alse ; 
boolean there_should_be_data= false ; 
double dist = 0; 
double old_dist = 0; 
int Tdist - 0; 
int AN_level = 0; 

int ID = 0; // Used to track temporary actions on any node 

int ChildNum =0; // child number of this, counted by its parent (where 

parent .dist=this .dist-1) 

int ChildCount =0; // the number of children of this (where 
child. dist=this .dist+1) 

int BigChildCount =0; // How many emphasized children there are 

int Trans it ionCount = 0 ; 

String Type=" " ; 

String Name=" " ; 

String Desc=" "; 

String Data [] ; 

// double TinyScale=1.0; 

double ThetaOffset = 0; 

// long LongData; 

long created_TS =0; //A Time Stamp to record when we last did something to 
ourself , 

long TS = 0; //A Time Stamp to record when we last did something to ourself, 
long drawnTS =0; //A Time Stamp to record when we last did something to 
ourself , 
Vector Links; 
Vector ContextLinks; 

int child_vec[]; // allows us to order fn's called on children 

double px=0, py=0; 

double pxPOV=0 / pyPOV=0 ; 

double pxNeighbors=0, pyNeighbors=0 ; 

double pxParent=0, pyParent=0; 

Color TempColor; 

static int potent iat ion=l ; 

long potent iat ion_TS = -1; // A Time Stamp to record when we last were 
potentiated 

double potent iat ion_mag = 1; 

double importance = 1; 

// double CS = Link . DEFAULT_CS ; 

double mag = DEFAULT_MAG; 

double min_mag = 0; 

long magTS; 

double old_mag = 0.1; 

double delta_mag = 1.0; 

double X=0, Y=0, Z=0; // offsets from parent in VRmode in data 

corrdinates 

double size_X=6, size^Y^lS, dZ=l; // 

double x=0, y=0, z=0; // temp positions for POVs in data corrdinates 
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double size_x=l, size_y=l, dz=l; // permanent sizes for objects in data 
coordinates 

double magi =1 - 0, mag2=1.0, mag3=l. 0; 

long maglTS, mag2TS # mag3TS; 

// Node VR_node; 

boolean VRyes; 

// static Node Myself; 

// double DoubleData; 

// DataObj dataob j ; // I'm storing data directly into nodes now (5/99) 
// Vector GlobalVec; 

// static int total_nodes_created = 0; 
/** 

DS . spreadback_f rom (targe t_node , POV) 

is a mechanism for finding the shortest routefrom a POV (or any node) to 

any other node. It spreads one level at a time, thus invoked for n-times 

until all the return values indicate no more nodes. 

It uses TS each invocation, passes desired level to return form. 

The invocation which finds the target returns a code and the caller 

modifies the mag to that invocation, spreading backwards directly to the POV 

*/ 

/★* 

** Node CONSTRUCTORS (constructors) 
** 

*/ 



// 

public NodeO { 
initO ; 

assign () ; 

} 

public Node (String Name) { 

init(); this. Name = Name; //createMyself () ; 
assign () ; 
} 

public Node (String Name, String Type) { 

initO; this. Name = Name; this . setType (Type) ; //createMyself 0 ; 
assign () ; 
} 

public Node (String Name, String Type, String Desc) { 
initO; this. Name = Name; this . setType (Type) ; this. Desc = Desc; 
//createMyself () ; 

assign () ; 
} 

public Node (String Name, String Type, String Desc, String Data) { 
initO; this. Name = Name; this . setType (Type) ; this. Desc = Desc; 
//createMyself () ; 

this. Data [0] = Data; 
assign () ; 
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} 

public Node (String Name, String Type, String Desc, 
int x, int y) { 

initO; this. Name = Name; this . setType (Type) ; this. Desc = Desc; 
//this.X = x; this.Y = y; //createMyself () ; 
this . setX(x,y) ; 
assign () ; 
} 

public Node (String Name, String Type, String Desc, String Data, 
int x, int y) { 

initO; this. Name = Name; this . setType (Type) ,- this. Desc = Desc; 

//this.X = x; this.Y = y; //createMyself () ; 
this . setX(x,y) ; 
this. Data [0] = Data; 

assign () ; 

} 

public Node (String Name, String Type, String Desc, 

int x, int y, int size_x, int size_y) { 
initO; this. Name = Name; this . setType (Type) ; this. Desc = Desc; 
//this.X = x; this.Y = y; 

this.size_X = size_x; this.size_Y = size_y; //createMyself () ; 
this . setX(x,y) ; 

assign () ; 

} 

public Node (String Name, String Type, String Desc, String Data, 

int x, int y, int size_x, int size_y) { 
initO; this. Name = Name; this . setType (Type) ; this. Desc = Desc; 
//this.X = x; this.Y = y; 

this.size_X = size_x; this.size_Y = size_y; //createMyself () ; 
this . setX(x,y) ; 
this. Data [0] = Data; 

assign () ; 

} 

/** 

** Node.setX another place to do all setting of X variables 
** 

*/ 

public void setX (double X, double Y) { 
double oldX=0, oldY=0; 

this.setXC'-?-", X, Y) ; 
return; 
} // end Node.setX 
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** Node.setX another place to do all setting of X variables 
* * 

V 

public void setX (String CallingFnName, double X, double Y) { 
double oldX=0 ( oldY=0; 

oldX = this.X; 
oldY = this.Y; 
this.X = X; 
this.Y = Y; 

// HERE WE CAN MONITOR PROBLEM AREAS 
/************************************* 

if ( 

(this .Name . equal slgnoreCase ( 11 TL" ) ) 

| | (this .Name. equal slgnoreCase ("Today") ) 

| | (this. Name. equal s IgnoreCase ( "2pm: Today : ") ) 

| | (this .Name. equal slgnoreCase ("2pm: Tomorrow: ") ) 

| | (this. Name. equalsIgnoreCase ( "2pm: Yesterday : " ) ) 

| | ( this. Name. equalsIgnoreCase ( " cal" ) ) 

| | (this .Name. equal slgnoreCase ("Root") ) 

) 

if (oldX==X StSc oldY==Y) 

System. out .println ( "Node . setX : " +CallingFnName+ 

" • "+this.Name+ M ' .Xvar was ( "+oldX+" , "+oldY+" ) and is 

unchanged" ) ; 

else 

System. out .print In ("Node.setX : " +CallingFnName+ 

» » "+this.Name+" ' .Xvar was ( "+oldX+" , "+oldY+" ) and is 

changed to -> ( "+X+" , "+Y+" ) » ) ; 
*************************************/ 

return; 
} // end Node.setX 



/** 

** set_pot set the potent iation_TS to the argument 
* * 
*/ 

public void set_pot () { 

this . set_pot (GUI - current_TS) ; 

} 

public void set__pot (long pot_TS) { 

this.potentiation_TS « pot_TS; 

// System. out .println (" set_pot ( " +this . Name+" ) " ); 
} // end set_pot 
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/* 

* assign set Node vars, and set Link's vars from Node's 
*/ 

public void assign 0 { 
Node tnode=null; 

double dx=50* (GUI .random () -0.5) , dy=50* (GUI . random () -0 . 5) ; 

Link link; 

this.x = this.X + dx; 
this.y - this.Y + dy; 
this.size_x = this.size_X; 
this.size_y = this.size_Y; 

DataSea. add_to_node_vec (this) ; // this will initialize node_vec if needed 
} // end assign 

/** 

** setType 

* * 

*/ 

public void setType (String type) { 
int i, size; 
Node tn; 



this. Type = type; 

if (type . equal slgnoreCase ("BB") ) 

this.isBB = true; 
if (type .equal slgnoreCase ("PN 11 ) ) 

this.isPN = true; 
if (type . equalsIgnoreCase ( "CN" ) ) 

this.isCN = true; 
if (type . equalsIgnoreCase ( "AN" ) ) 

this.isAN = true; 
if (type . equalsIgnoreCase ( "ON" ) ) 

this.isON = true; 
if (type. equal slgnoreCase ( "POV" ) ) 

this.isPOV = true; 
if (type . equalsIgnoreCase ( "DN" ) ) 

this.isDN = true; 
if (type. equalsIgnoreCase ("Event") ) 

this.isEvent = true; 
if ( type. equals IgnoreCase ( "Form") ) 

this.isForm = true; 
if (type . equalsIgnoreCase ( "Layer" ) ) 

this.isLayer = true; 
if ( type. equals IgnoreCase ( "URL" ) ) { 
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this.isURL = true; 
} 

this. Data [0] = "No Data available for node <"+this .Name+" >" ; 
} // end setType 
/* 

* init create a vector called this. Links 
*/ 

public void init () { 
Link link; 
int i; 

this. Links = new Vector (10); 

this . ContextLinks = new Vector (1); 

this . chi ld_vec = new int [MAX_CHILDREN+1] ; 

this.created_TS = GUI . currentJTS ; 

this. set_TS () ; 

this. Data = new String [MAX_TEXT_DATA_LINES] ; 
} // end init 

/** 

** setLinks_should_we__pos 

★ * 

*/ 

public void setLinks_should_we_pos (Node node, boolean value) { 

Link link; 

if (node == null) { 

System. out .println ( "Node . setLinks_should_we_pos () : ERROR, node is 

null") ; 

return ; 

} 

link = node. getLinkTo (node) ; 
if (link == null) { 

System. out .print In ("Node. setLinks_should_we_pos () : ERROR, link is 

null to " 

+node.Name) ; 
if (GUI .animation_thread != null) 

GUI . animation_thread . dumpStack ( ) ; 

return ; 
} 

link . setLinks_should_we_pos (node , value) ; 
} // end setLinks_should_we_j?os 

I * * 

** setLinksVRparmsTo 
** 

*/ 

public void setLinksVRparmsTo (Node node) { 
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Link link; 

if (node == null) { 

System. out .print ln( "Node. setLinksVRparmsTo ( ) : ERROR, node is 

null") ; 

5 return; 

} 

link = node. get LinkTo( node ) ; 
if (link == null) { 

Sy st em. out .print In ("Node. set Links VRparmsToO : ERROR, link is null 

10 to" +node . Name ) ; 

if (GUI . animation_thread != null) 

GUI . animation_thread . dumpStack ( ) ; 

return; 

} 

15 link. setLinksVRparms (node) ; 

} // end setLinksVRparmsTo 



20 /« 



★ * 
**/ 



public Node get Parent (Node node) { 
Node tnode, saved_node=null ; 

2 5 int i, size; 

if (node == null) 

return ( (Node) null) ; 

size = node . Links . size () ; 

3 0 for (i=0; i<size; i++) { 

tnode = node. getNodeAtL ink (i) ; 
if (tnode==null) { 

break; 

} 

3 5 if ( tnode. dist == (node.dist - 1) ) { 

saved_node = tnode; 
} 

} 

4 0 return ( s aved_node ) ; 

} // end get Parent 



/* * 

* method checkSamePol tell if links from parent->this and this->child have 
the same polarization 
*/ 

50 public boolean checkSamePol (Node parent, Node child) { 
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char parentPol, childPol; 
boolean returned__boolean=f alse; 

return (true) ; // SIMPLIFY 11/11/99 

/**********★************************************************* 
if { ! GUI . checkPolarization) 
return (true) ; 

if ( Iparent. isPolarized) 

returned_boolean = true; 
if (! this. isPolarized) 

returnedjooolean = true; 
if (! child. isPolarized) 

returned_boolean = true; 

if (returned_boolean == false) { 
parentPol = parent .get Pol (this) ; 
childPol = this. getPol (child) ; 

if (parentPol == childPol) 

returned_boolean = true; 

else 

returned_boolean = false; 

} 

if (GUI .Debug == 1) 

System. out .print In ("checkSamePol () : " +returned_boolean+" between 
"♦parent .Name+" ( "+parent . Type+" ) -> " +this .Name+" ( "+parent .Type+" ) -> 
" +child . Name+ " ( " +parent . Type+ " ) " ) ; 

return (returned_boolean) ; 

************************************************************/ 
} // end checkSamePol 



I * * 

** hasSmallerDistThan Returns a sibling which is of Type -type', else null 
★ * 
*/ 

public boolean hasSmallerDistThan (Node other_node) { 
boolean ret_val; 

if (this.dist < other_node.dist - 0.00001) // handles java imprecision 
ret_val = true; 

else 

ret val = false; 
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return (ret_val) ; 

} // end hasSmallerDistThan 



/** 
/** 

** hasLargerDistThan Returns a sibling which is of Type 'type 1 , else null 
* * 
*/ 

public boolean hasLargerDistThan (Node other_node) { 
boolean ret_val; 

if (this.dist > other_node.dist + 0.00001) // handles java imprecision 
ret_val = true; 

else 

ret_val = falser- 
return (ret_val) ; 
} // end hasLargerDistThan 



I * * 

** hasSiblingOfType Returns a sibling which is of Type 'type 1 , else null 
** 
*/ 

public Node hasSiblingOfType (String type) { 
int i, size; 
Node child; 

size = this .Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (this . getNodeAtLink (i) ) ; 

if (child. Type. equal slgnoreCase (type) ) 
return (child) ; 

} 

return ( (Node) null) ; 

} // end hasSiblingOfType 



/** 

** goesUpstreamTo 
** 

*/ 

public boolean goesUpstreamTo (Node node) { 
int i, size; 
Node child; 
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if (•-• == thi s. get Pol (node) ) 
return (true) ; 

else 

return (false) ; 
} // end goesUpstreamTo 



/** 
/** 

** goesDownstreamTo 
** 

*/ 

public boolean goesDownstreamTo (Node node) { 
int i, size- 
Node child; 

if («+' == this .getPol (node) ) 
return (true) ; 

else 

return (false) ; 



} // end goesDownstreamTo 



I * * 

* method get Pol get the polarization between this and node 

*/ 

public char get Pol (Node node) { 
char returned_char= ' - 1 ; 



if (node==null) { 

GUI . WARNING ( 0 , "Node . getNodeAt Link" , "node is null"); 

return ( ' x ' ) ; 

} 

Link link = this . get LinkTo (node) ; 
if (link==null) { 

GUI . WARNING ( 0 , "Node . getNodeAtLink" , "link between <"+this .Name 
+"> and <"+node .Name+"> is null" ); 

return ( 'x') ; 

} 

if (node == link.NodeR) 

returned_char = ' + 1 ; 

else 

returned char = 1 - ' ; 
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return ( re turned_char) ; 
} // end get Pol 



/** 

* method getAN_connected_to_DN UN- NECESSARY? 

*/ 

public Node getAN_connected_to_DN (Node DN) { 
int i, j , size; 
Node tAN, tDN; 

size = this .Links . size () ; 
for (i=0; i<size; i++) { 

tAN = this . getNodeAtLink ( i ) ; 
if (tAN == null) 

return ( (Node) null) ; 
j = 0 ; // set to run through DN ' s 
if (tAN.isAN) { 

while (null != (tDN = tAN . getDN ( j ++) ) ) 

{ 

if (tDN == DN) 

return (tAN) ; // tAN is connected to arg DN 

else 

; // Keep trying to find the given DN connected to 

tAN 

} 

} 

} 

return ( (Node) null) ; 
} // end getAN_connected_to_DN 

/★* 

* method getDN_connected_to_AN UN -NECESSARY? 

*/ 

public Node getDN_connected_to_AN (Node AN) { 
int i, j, size; 
Node tDN, tAN; 

size = this .Links . size () ; 
for (i=0; i<size; i++) { 

tDN = this .getNodeAtLink (i) ; 
if (tDN == null) 

return ( (Node) null) ; 
j = 0; // set to run through AN's 
if (tDN.isDN) { 

while (null != (tAN = tDN . getAN ( j ++) ) ) 
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{ 

if (tAN == AN) 

return (tDN); // tDN is connected to arg AN 

else 

; // Keep trying to find the given AN connected to 

tDN 

} 

} 

} 

return ( (Node) null) ; 
} // end getDN_connected_to_AN 

/* * 

** get Parent 
* * 

*/ 

public Node getParent () { 
int size=0, i; 
Node tnode; 

size = this .getChildCount () ; 
for (i=0; i<size; i++) { 

tnode = this . get Chi Id (i) ; 

if (tnode. dist < this.dist) 

return (tnode) ; // parent will have lower dist 

} 

return ( (Node) null) ; // return null if we fall through 
} // end getParent 



/** 

** getChild 
*★ 

*/ 

public Node getChild (int i) { 
return (this .getNodeAt Link (i) ) ; 
} // end getChild 

/** 

** getChildCount 
** 

*/ 

public int getChildCount () { 
return (this . Links . size ( ) ) ; 
} // end getChildCount 
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/** 

* method getAN__named return a (remotely) linked AN, go dist of 
■ how_f ar 1 max . 

* Later allow return of distance info and such 
*/ 

public Node getAN_named (String name, int how_far) { 
int i, AN_counter=0, size; 
Node tnode=null, ret_node=null ; 

if (how_far <= 0) // SINCE WE ARE RECURSIVE, CONSIDER THE END POINT 
return ( (Node) null ); // FAILED TO FIND NODE 

System. out . print In ( "get AN_named ( ) : looking for ' "+naitie+" * from 
this=' "+this.Name+" 1 ") ; 

size = this .Links . size () ; 
for (i=0; i<size; i++) { 

tnode = this.getNodeAtLink(i) ; 

Sy stem. out .print ( "getAN_named ( ) : how_far="+howJar+", 
tnode . Name= ' " + tnode . Name+ " ' ; " ) ; 

if (tnode == null) 

return ( (Node) null) ; 
if (tnode. dist >= this. dist) { 

System. out .print (" dist="+tnode . dist+" ( >=" +this . dist+" ) ; " ) ; 
if ( tnode. Type. equals ("AN") ) { 

System. out .print ( " is an AN."); 
if ( tnode. Name. equals (name) ) { 

Sy stem. out .print In (" ; CORRECT NAME, returning."); 
return (tnode) ; 

} 

else 

System. out .print (" but is the wrong name, != M, +name+ IM 

looping ...."); 

} 

else 

System. out .print ( " not an AN."); 

} 

else 

System. out .print ( " dist="+tnode . dist+" !> " +this . dist) ; 
System . out . print In ( " " ) ; 

} 

// HAVEN'T FOUND CORRECT AN, SO RE-DO LOOP ON CHILDREN AND RECURSE WITH how_far- 
for (i=0; i<size; i++) { 
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tnode = this . get NodeAt Link (i) ; 
if (tnode == null) 

return ( (Node) null) ; 
if (tnode. dist > this.dist) { 

System . out . print In ( " Recurs ing . 11 ) ; 

ret_node = tnode .get AN__named (name, (how_far-l) ) ; 

if (ret_node «= null) 

return (ret_node) ; 

} 

} 

// FALL THROUGH 
return ( (Node) null) ; 
} // end getAN_named 

/** 

* method getAN return a directly linked AN, skip 'which' of them 

*/ 

public Node getAN (int which) { 
int i, AN_counter=0, size; 
Node tnode; 

size = this .Links . size () ; 
for (i=0; i<size; i++) { 

tnode = this .getNodeAt Link (i) ; 
if (tnode -= null) 

return ( (Node) null) ; 
if ( tnode. Type. equals ("AN") ) { 

if (AN_counter< which) // if which==0, return first 
AN_counter++ ; 

else 

return (tnode) ; 

} 

} 

return ( (Node) null) ; 
} // end getAN 

/** 

* method getDN return a directly linked DN, skip 'which' of them 

*/ 

public Node getDN (int which) { 
int i, DN_counter=0, size; 
Node tnode; 

size = this. Links . size () ; 
for (i=0; i<size; i++) { 

tnode = this.getNodeAtLink(i) ; 

if (tnode == null) 

return ( (Node) null) ; 
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if ( tnode. Type. equals ("DN") ) { 

if (DN_counter< which) // if which==0, return first 
DN_counter++ ; 

else 

} 



return (tnode) ; 



} 



return ( (Node) null) ; 
10 } // end getDN 

/* * 

* method getLinkTo 
*/ 

15 public Link getLinkTo (Node node) { 

int i, size, which=-l; 
Node tnode; 

size = this .Links . size () ; 
2 0 which = this . isThereLinkTo (node) ; 

if (which != -1) 

return ( (Link) (this . Links . elementAt (which) ) ) ; // got it 

25 return ( (Link) null) ; // fall-through, default, a failure 

} // end getLinkTo 



/** 

3 0 * method getLink 

*/ 

public Link getLink (int i) { 
return ( (Link) (this . Links . elementAt (i) ) ) ; 

35 } 
/** 

* method isThereLinkTo Get the other node, not 'this' 
*/ 

4 0 public int isThereLinkTo (Node node) { 

Link tlink; 
int i, size; 

size = this .Links. size () ; 
4 5 for (i-0; i<size; i++) { 

tlink = (Link) (this .Links .elementAt (i) ) ; 
if ((node == tlink. NodeL) || (node == tlink . NodeR) ) 
return (i) ; 

} 

50 return (-1) ; 
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} // end isThereLinkTo 



* method set_Desc set the Desc in the correct link to other_node 
*/ 

public int set_Desc (Node other_node, String desc) { 

if ( desc. equals (" ") ) 
return (0) ; 

Link link = getLinkTo (other_node) ; 
if (link == null) 

return ( - 1 ) ; 

if (this == link.NodeR) { 
link.Desc_R = desc; 

GUI . P (0, "Node. set_Desc" , "Set Desc ( 1 " +desc+" • ) into link_R of 
" +thi s . Name+ " - > " +other_node . Name ) ; 
} 

else 

if (this == link.NodeL) { 
link.Desc_L = desc; 

GUI . P (0, "Node. set_Desc" , "Set Desc ( ' " +desc+" ' ) into link_L of 
" +this . Name* " - > " +other_node . Name) ; 

} 

else { 

GUI . ERROR (0, "Node . set_Desc" , 11 Internal error, this is neither 
NodeR or NodeL") ; 

return (-1) ; 

} 

return (0) ; 

} // end set_Desc 



I -k * 

* method get_Desc get the Desc in the correct link to other_node 
*/ 

public String get_Desc (Node other_node) { 
String desc=null; 

Link link = getLinkTo (other_node) ; 
if (link == null) 

return (desc) ; // null 

if (this == link.NodeR) { 
desc = link.Desc_R; 
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GUI .P(0, "Node. get_Desc" , "Got ("+desc+") from link_R of 
"+this .Name+" -> "+other_node .Name) ; 

} 

else 

if (this == link.NodeL) { 
desc = link.Desc_L; 

GUI . P ( 0 , "Node . get_Desc " , "Got ("+desc+") from link_L of 
"+this .Name+" -> "+other_node .Name) ; 

} 

else { 

GUI .ERROR (0, "Node. get_Desc" , "Internal error, this is neither 
NodeR or NodeL") ; 

return (desc) ; // null 

} 

return (desc) ; 

} // end get_Desc 

I -k ★ 

* method set_CS Set the CS from this to the other node 
public double set_CS (Node other_node, double CS) { 

Link link = getLinkTo (other_node) ; 
if (link == null) 
return (0) ; 

if (this == link.NodeL) { 

if (this. Debug GUI. Debug == 1) 

System. out. print In ("set_CSO : ( " +this . Name+" ) - 

> ( » +other_node . Name 

+») : CS "+link.CS_R+" -> " +CS) ; 

link.CS_R = CS; 
} 

else 

if (this == link. NodeR) { 

if (this. Debug && GUI. Debug == 1) 

System. out .print In ("set_CSO : ( "+this . Name+" ) - 

> ( " +other__node . Name 

+") : CS "+link.CS_L+" -> "+CS) ; 

link.CS_L = CS; 
} 

else 

GUI. ERROR (0, "Node. set_CS", "Internal error, this is neither NodeR 

or NodeL") ; 

return (CS) ; 

} // end set_CS 

*/ 
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* method set_CS_f rom_CNode Set the CS from this to the other node 
*/ 

public double set_CS_f rom_CNode (Node left_node, Node right_node, double CS) { 
// CSs 

Link link = lef t_node . getLinkTo (right_node) ; 
if (link == null) 
return (0) ; 

link.set_CS(CS) ; 

return (CS) ; 

} // end set_CS_f rom_CNode 



/** 

* method get_CS Get the other node, not 'this' 
*/ 

public double get_CS (Node other_node) { 

if (other_node == null) 

return (Link . D E F AULT__C S ) ; 

Link link = getLinkTo (other_node) ; 
if (link == null) 
return (0) ; 

if (this == link.NodeR) { 
return (link. CS_L) ; 

} 

else 

if (this == link.NodeL) { 
return (link. CS_R) ; 
} 

else 

GUI . ERROR ( 0 , "Node . get_CS " , "Internal error, this is neither NodeR 

or NodeL") ; 

return (0) ; 

} // end get_CS 

/** 

* method getNodeAtLink Get the other node, not 'this' 
*/ 

public Node getNodeAtLink (int i) { 
Link tlink=null; 

if (i >= this . Links . size () ) { 

GUI . WARNING ( 0 , " Node . getNodeAtLink " , 

"FAILED, i("+i+")>= size of Links 
vector ( " +this . Links . size ()+")") ; 
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return ( (Node) null) ; 
} 

tlink = (Link) (this .Links .elementAt (i) ) ; 

if (this == tlink. NodeL) { // decide which node to return 

this .get_CS (tlink. NodeR) ; // store CS into NodeR, use soon 
return (tlink. NodeR) ; // return 'other' node 

} 

else { 

this.get_CS ( tlink. NodeL) ; // store CS into NodeL, use soon 
return ( tlink. NodeL ) ; // return 'other' node 

} 

} // end getNodeAtLink 



/** 

* method getCNodeAtLink Get the CN node 
*/ 

public Node getCNodeAtLink (int i) { // CSs 
Link tlink=null; 

if (i >= this .Links . size () ) { 

GUI . WARNING ( 0 , "Node . getCNodeAtLink" , 

"FAILED, i(" +i+")>= size of Links 
vector ( "+this .Links . size () +" ) " ) ; 

return ( (Node) null) ; 
} 

tlink = (Link) (this .Links. elementAt (i) ) ; 

return ( tlink. CNode) ; 

} // end getCNodeAtLink 

/* * 

* method link 
*/ 

public Link link (String name) { 

Node tnode = DataSea . f ind_node_named (name) ; 

return (this. link (tnode, "", Link . DEFAULT_CS , false, "polarized")); 
} // end of link() 

public Link link (Node node) { 

return (this. link (node, " " , Link . DEFAULT_CS , false, "polarized")); 
} // end of link() 

public Link link (Node node, String polarized) { 

re turn (this. link (node, " " , Link . DEFAULT_CS , false, polarized)); 

} // end of link() 

//public Link link (Node node, String desc) { 

//re turn (this. link (node, desc, Link . DEFAULT_CS , false, true)); 
//} // end of link() 
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public Link link (Node node, Node CNode) { // link this to node, add CNode to 
link 

Link link = this . link (node, "", Link . DEFAULT_CS , false, "polarized"); 
if (CNode != null) 

link . addCNode (CNode) ; 
return (link) ; 
} // end of link() 

public Link link (Node node, Node CNode, String polarized) { // link this to 
node, add CNode to link 

Link link = this . link (node, "", Link . DEFAULT_CS , false, polarized); 
if (CNode != null) 

1 ink . addCNode ( CNode ) ; 
return (link) ; 
} // end of link() 

// MAIN ROUTINE FOR LINK, Called by other overloaded versions 

public Link link (Node node, String desc, double CS, boolean OneWay, String 

polarized) { 

int i=0 , size ; 

Link temp_link; 

Node tnode; 

boolean isPolarized=true ; 



if (polarized != null) { 

if (polarized. equal slgnoreCase ("polarized") ) 
isPolarized = true; 
} 

if (node == null) { 

return ( (Link) null) ; 

} 

if (node. Links. size () > = MAX_CHI LDREN || 

this. Links. size () >= MAX_CH I LDREN ) { 

return ( (Link) null) ; 

} 

// 
// 

// See if already linked 

size = this . Links . size () ; 

// this .Chi ldCount = this . Links . size () ; 

for (i = 0; i<size; i++) { 

tnode = this .getNodeAtLink(i) ; 

if (tnode == node) { 

return ( (Link) this . Links . element At ( i) ) ; 

} 

} 

temp_link - new Link() ; 
temp_l ink. Node L = this; 
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temp_link.NodeR = node; 

temp_link. isPolarized = isPolarized ; 

temp_link . set_CS (CS) ; 

this . set_Desc (node, desc) ; 

this . Links . addElement (temp_link) ; 

if (! OneWay) 

node . Links . addElement (temp_link) ; 

if (DataSea. current CNode != null) { 

temp_link . addCNode (DataSea . current CNode) ; 

//System. out .print ("adding DataSea . currentCNode to link for 
<"+this .Name+"> and < " +node . Name+ " > " ) ; 
} 

return (temp_l ink) ; 
} // end of link() 



J * * 

* method unlink_both Remove both links between this and given node 
*/ 

public void unlinkjboth (Node node) { 

int i=0, size; 
this .unlink (node) ; 
node .unlink (this) ; 
return; 
} // end of unlink_both() 

/** 

* method unlink Unlink the argument 'node'. 

* Given the node 'node' which is linked to 'this', 

* find the link of 'node' having 'this' as the other half, 

* and then remove that link from 'node'- 'this' is unaffected. 
*/ 

public void unlink (Node node) { 
int 1=0, size; 

Node tnode; 
if (node == null) { 
return; 

} 

size = node .Links . size () ; 

// System. out .print ("unlink from this="+this .Name+" , 
size= ,, +size+" . . . node="+node .Name) ; 
for (i=0; i<size; i++) { 

tnode = node -getNodeAtLink (i) ; 

// Sy stem. out. print (» " +i+" ( " +tnode .Name+" ) " ) ; 
if (tnode == this) {// This is the right index 

/ / System . out . print In ( 11 removing link in " +node . Name+ " . 11 

node . Links . remove Element At ( i) ; 
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System. out. println(" removed link from "+this .Name+" -> 

"+node.Name) ; 

return; // Early return 
} 

} 

return ; 
} // end of unlink () 



/* * 

* method unlink_all Unlink all nodes from 'this' . 

* This is probably in preparation for deleting this node. 
*/ 

public void unlink_all () { 
int i=0, size; 
Node tnode; 

size = this .Links . size () ; 

for (i=0; i<size; i++) { 

// if (size == this. Links. size() ) // thread problems???? 

// tnode = this .getNodeAtLink (i) ; 

// else { 

// GUI . WARNING ( 0 , "Node . unlink_all " , 

// "FAILED, size != old size of Links vector"); 

// return; 

// ) 

tnode = this .getNodeAtLink (i) ; 
if (tnode == null) { 

System. out . print In ( "unlinkjall : FAILED on tnode, null node 
from this. getNodeAtLink <"+i+") ») ; 

} 

else { 

this. unlink_both (tnode) ; 
} 

> 

return; 
} // end of unlink_all() 



/** 

* method undo returns the old mag 
*/ 

double undo (int levels) { 
double prior_mag=0 ; ; 

prior_mag = this. mag; 

if (this.magTS >= GUI . lastCommandTS) 
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this. mag = this.magl; 
this.TS = this .maglTS; 
this.maglTS = this .mag2TS; 
this.mag2TS = this .mag3TS ; 

) 

if (this.maglTS >= GUI . lastCommandTS) { 
this. mag = this.mag2; 
this.mag2TS = this.mag3TS; 

} 



/*****************★************** 

if (this. Name. equals ("Bob") || this .Name . equals ( "name" ) ) 

System . out . print In ( "undo : " +this . Name+ » . Tdif f = " + (GUI . current _TS- 

this.TS) 

+ ", Mags ("+this .mag+" , "+this .magl+" , " +this .mag2+" , "+this.mag3 

+ ") ") ; 

★***************★**************/ 
/******************************** 
if (levels == 1) { 

this. mag = this.magl; this.magTS = this.maglTS; 
this.magl = this.mag2; this.maglTS = this.mag2TS; 
this.mag2 = this.mag3; this.mag2TS = this.mag3TS; 
} 

else 

if (levels == 2) { 

this. mag = this.mag2; this.magTS = this.mag2TS; 
this.magl = this.mag3; this.maglTS = this.mag3TS; 
} 

*******************************/ 



this .del ta_mag = this. mag - prior_mag; 
if (this.dist > 0) 

this . importance ~ this .mag/this .dist; 
this.set_TS() ; 



return (prior_mag) ; 
} // end of undo() 



/** 

* method set_TS returns the old TS 

long set_TS () { 
long old_TS; 

oldJTS = this.TS; 
this . TS = GUI . thisCommandTS ; 
return (old_TS) ; 
} // end setJTS 
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* method TS_diff returns the the millisecond value of (GUI . thisCommandTS - 
this.TS) 

•/ 

double TS_diff () { 

double diff - GUI . thisCommandTS - this.TS; 
//System. out. println(»TS_diff("+this.Name+")== "+diff) ; 

return (diff) ; 
} // end TS_diff 

/** 

* method set_theta_of f set 
*/ 

void set_theta_of f set (double theta_of f set ) { 

this . set_theta_of f set (theta_of f set , "Unknown caller" ) ; 
} // end set_theta_offset 

/* 

* method set_theta_of f set 
*/ 

void set_theta_of f set (double theta_of f set , String str) { 
if (this. Debug && GUI. Debug == 1) 

System. out .print In ( " set_theta_of f set () : "+str) ; 
this .ThetaOff set = theta_of f set ; 
} // end set_theta_of f set 

/** 

** calc_new_mag 

* * 

*/ 

public double calc_new_mag (double current_mag, double given_new_mag) { 

double temp_mag = Math . exp (cur rent_mag) + given_new_mag ; 
if (temp_mag < 2.8) 

temp_mag - 2.8; 

double result_mag = Math . log (temp_mag) ; 

System. out . print In (cur rent_mag+" + " +given_new_mag+ n -> " +result_mag) ; 
return (result_mag) ; 
} // end calc_new_mag 

/** 

* method set_mag_no_hi story returns the old mag 
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*/ 

double set_mag_no_hi story (double new_mag) { 

/ / doub 1 e t emp_ne w_mag = c a 1 c_new_mag (this. mag , ne w_mag ) ; 

if (new_mag < this .min_mag) // sanity check 
new_mag = t h i s . m i n_mag ; 

if (this. Debug && GUI. Debug == 1) 

System, out .printlnC set_mag_no_hi story () : "+this .Name+" : mag ,r +this.mag+" 
-> u +new_mag) ; 

if ( !GUI .doNormalization) // if we don't normalize, then limit the max value of 
mag 

new_mag = (newjnag > MAX_MAG) ? MAX_MAG : new_mag; 

this. mag = new_mag; 

return (old_mag) ; 

} // end set_mag_no_hi story 

f -k * 

* method set_mag with node argument, use CS to node 
*/ 

double set_mag (double new_mag, Node node) { 
Link link = null; 
double temp_mag; 

// double temp_new_mag = calc_new_mag (this .mag, new_mag) ; 

if (node != null) { 

link = this .getLinkTo (node) ; 

temp_mag = (link.CS_R + link.CS_L)/2 * new_mag; 
if (this. Debug) 

System. out . print In (" set_mag of < " +this . Name+" > by node 
< " +node . Name+ " > " ) ; 

} 

else 

temp_mag = new_mag; 

return (this . set_mag (temp_mag) ) ; 
} // end two argument version 

/** 

* method set_mag returns the old mag 
*/ 

double set_mag (double new_mag) { 
double old_mag = this. mag; 
long diff_TS; 
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// double temp_new_mag ■ calc_new_mag (this .mag, new_mag) ; 
if (this. Debug) 

System. out .print In ( " set_mag ( ) : "+this .Name+" : mag "+this .mag+" -> 
"+new_mag) ; 



// Set the elements of the stack of old mags if set_mag 
// has not occurred recently 

if ((this.TS + 1000) < GUI . thisCommandTS) { 

this.mag3 = this.mag2; this.mag3TS = this.mag2TS; 
this.mag2 = this. magi; this.mag2TS = this.maglTS; 
t his. magi = this. mag; this.maglTS = this.magTS; 

thi s . magTS - GUI . thi sCommandTS ; 

} 

this . set_TS () ; 

/************************************************************/ 

///////////// 

// THIS SHOULD BE HANDLED IN HIGHER-LEVEL FUNCTIONS , LIKE more_mag ( ) 

// Do Potentiation calculations . . . 

diff_TS = (GUI . current_TS - this . potent iation_TS) ; 

if (diff_TS < 2000) 

diff_TS = 2000; 
if (diff_TS < 4000) { // -1 <= potentiation <= 1 

// this. pot entiation_mag = this .potentiation * 4 000/dif f _TS ; 

this.potentiation_mag « this .potentiation * 2.4; // simpler for now 
4/19/2000 

System . out . print In ( » set_mag ( ) : POTENTIATION 
+" . potent i at ion_mag = " + this .potent iation_mag 
+ " , mag=" +this.mag 
+ " "+ this .Name) ; 

} 

else 

this. pot entiation_mag = 1; // else reset it 
///////////// 

/A***********************************************************/ 
if (this. Debug) 

System. out. print In ( " set_mag ( ) : "+this .Name+" : mag " +this .mag+" -> 
"+new_mag) ; 



if (this .potent i at ion_mag < 0) 

new_mag /= -this .potent iation_mag; // 

else 

new_mag *= this .potent iation_mag; // 
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if (new_raag < this.min_mag) 

new_mag = this .min_mag; 

if ( !GUI .doNormalization) // if we don't normalize, then limit the max value of 
mag 

new_mag = (new_mag > MAX_MAG) ? MAX_MAG : new_mag ; 
this. mag = new_mag; // necessarily update this. mag 

this .del ta_mag = new_mag - this. magi; // delta dependent on magi which is dep' 
on TS 

return (old_mag) ; 

} // end of set_mag() 



double lift_to_threshold () { 
doub 1 e ne w_mag = t hi s . mag ; 

if (new_mag < GUI . relations_threshold+0 . 1) 

this . set_mag (GUI . relations_threshold+0 . 1) ; 

return (new_mag) ; 

} // end lift_to_threshold 



double lift (double delta) { 
double new_mag= this .mag; 

new_mag += delta; 

if (new_mag >= MAX_MAG) 

new_mag = MAX__MAG ; 
this.set_mag(new_mag) ; 
return (new_mag) ; 
} // end lift 



double a_little_more_mag () { 

double new__mag=l; 

new_mag = 1.3 * this . mag ; 

this . set_mag (new_mag) ; 

return (new__raag) ; 

} // end a_little_more_mag 
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double a_l it t le_les s_mag () { 

double new_mag=l; 

new_mag = this . mag/1 . 1 ; 

this . set_mag (new_mag) ; 

return (new_mag) ; 

} // end a_little_less_mag 

/* * 

* method more_mag returns the old mag 
*/ 

double more_mag () { 
return ( this .more_mag( (Node) null) ) ; 
} 

double more_mag (Node node) { // the link is from 'node' to 'this 1 
double new_mag=MIN_MAG; 
Link link = null; 

if (node != null) { 

link = this .get LinkTo (node) ; 

new_mag = (link.CS_R + link.CS_L)/2 + this. mag; 

} 

else 

new_mag = 1 + this . mag ; 

// Set a minimum value for this node's mag 
new_mag = (new_mag < BIG_MAG) ? B I G_MAG : new_mag; 

if (this .Debug) 

{ 

if (node==null) 

Sys tern. out .print In ("more_mag () : from null node to this= 1 "+this .Name+" ' , 
new_mag= " +new_mag ) ; 
else 

System . out . println ( "more_mag ( ) : from node= ' " +node . Name+ " ' to 
this= ! "+this .Name+" ' , new_mag="+new_mag) ; 

} 

return (set_mag(new_raag, node) ) ; 
} // end of more_mag() 

/* * 

* method less_mag returns the old mag 
*/ 

double less_mag ( ) { 
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return (this . less_mag ( (Node) null) ) ; 
} 

double less_mag (Node node) { // the link is from 'node' to 'this 1 
double new_mag=MIN_MAG ; 

new_mag = this . mag/1 . 2 ; 
if (new_mag < MIN_MAG) 

new_mag = MIN_MAG ; 

return ( set_mag (new_mag) ) ; 
} // end of less_mag() 



/** 

* method more_CS returns the new CS 
*/ 

public void more_CS (Node node) { 

Link link ■ this .getLinkTo (node) ; 
if (this. Debug GUI. Debug == 1) 

Sy stem. out. print In ( "more_CS () between this=<"+this .Name+" > and 
node=< " +node . Name+ " > 11 ) ; 
link.more_CS () ; 

return ; 

} // end of more_CS() 



/* * 

* method less_CS returns the new CS 
*/ 

public void less_CS (Node node) { 

Link link = this .getLinkTo (node) ; 
link. lessees () ; 

return ; 

} // end of less_CS() 



I * * 

* method set_dist returns the old dist 
*/ 

double set_dist (int new_dist) { 
double tdist, new_double_dist ; 

new_double_dist = (double) new_dist ; 
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return (this . set_dist ( (double) new_double_dist) ) ; 

> 

double set_dist (double new_dist) { 
double tdist; 

/****************************************************************************** 
*************/ 

// Thanks to java's imprecision, I need to manipulate double to eliminate 
0.00000000002 error 

/***★************************************************************************** 

************* / 

if (new_dist > 0) { 

tdist = ( (int) (10.0* (new_dist + 0 . 000001) )) /10 . 0 ; 
if (tdist != new_dist) 

new_dist = tdist; 

} 

/***********************************************************^ 
************* / 

this.old_dist = this, di Se- 
this, dist = new_dist; 

if (new_dist > 0) 

this . importance = this . mag/this . dist ; 
//this. Tdist = this.dist; // Set this as default 

return (this . old_dist) ; 

} // end of set_dist() 



J -k * 

* method set_Tdist 
*/ 

void set_Tdist (int new_Tdist) { 
this. Tdist = new_Tdist; 
return; 

} 

/** 

* method setData 
*/ 

int setData (String data) { 
this. Data [0] = data; 
return (0) ; 
} // end of setData () 
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/** 

* method action 
*/ 

public void action () { 
if (this .Desc .equals ( "File_mgt" ) ) 
this . f ile_mgt ( ) ; 
return; 
} // end of action () 

/** 

** Node . f ile_mgt 

* * 

*/ 

public void file_mgt () { 
GUI . P (0 , "Node . file_mgt" , "Operating on " +t his .Name) ; 
} // end file_mgt 

/★* 

* method describe 
*/ 

public String describe (String ToWhom) { 
if (ToWhom == "To Console") { 

return ( (String) null) ; 

} 

if (ToWhom == "To Me") { } 
// Default 

return ( "Name=" +this.Name+ " : Type=" +this.Type+ " , Desc=" +Desc + M,n ); 
} // end of describe () 

/* * 

* * 

*/ 

public double msg (String action, String msg, long TS, long dt) { 
long deadline_millis; 

deadline_millis = j ava . lang . System . currentTimeMillis ( ) - (TS + dt) ; 
// if (deadline_millis > 0) 

// GUI.P(0, "Node. msg" , "clock expired, " +deadline_millis+ " milliseconds 

over . " ) ; 
// else 

// GUI.P(0, "Node .msg" , "clock not expired, " 

// +deadline_millis+ " milliseconds over." ); 

return (0.0) ; 

} 
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/* 

** Try handling various recursions, do something along the network 
**/ 

float network_start (Node node) { 

if (node == null) 
return (-1) ; 



node. di st - 0; 

network_recursive (node) ; 
return (0) ; 

} // end position_start (a simple function calling recursive fns) 



/* 

** Try handling various recursions, do something along the network 
** J 

float network_re cursive (Node node) { 

if (node == null) 
return ( - 1 ) ; 

node. di st = 0; 

return (0) ; 

} // end position_start (a simple function calling recursive fns) 

/************************************************* 
public class DataObj extends Object { 

// some elements for data, stubbed now 

public String getDataAsString () { return { (String) null) ;} ; 
} // end class DataObj 

************** ************************** ********/ 



} // End of class Node 
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// This is Force. java by Rocky Nevin 

import j ava . lang . Math ; 

public class Force extends Object { 
double pxPOV, pyPOV; 
double thetaOffset = 0.1; 
double pxParent, pyParent; 
double pxSiblings, pySiblings; 
double pxNeighbors, pyNeighbors; 
double pxWind, pyWind; 
double pxSum, pySum; 

double ThetaRange=l, theta=1.0 / x=0, y=0, dist=0; 
int i ; 

double noiseCounter=0 , xNoise=0 / yNoise=0; 
long local_TS; 

boolean XNeg=false, YNeg=false; 
double opt_dist, alpha, beta; 

static double rand_scale = 10/GUI .magscale ; // guages severity of heat noise 

static boolean calcPOVPressure=false; 
static boolean calcNeighborPressure=f alse ; 
static boolean calcParentPressure=true; 
static boolean calcNoise=f alse ; 



/** 

** shif t_proximally shift proximal nodes by X,Y 

** This is expensive, called by calc_pressures each time shifted AN/DN is 
found 
*/ 

public void shif t_proximally (Node node, double X, double Y) { 
int i , size ; 
Node child; 

if (node.dist <= 3) // don't go back too far 
return; 

size = node . Links . size () ,- 
for (i=0 ; i<size; i++) { 

child = (Node) (node . getNodeAt Link (i) ) ; 
if (child. dist < node.dist) { 
child. x = X; 
child. y = Y; 

shif t_proximally (child, X, Y) ; 

} 

} 



} // end shift_proximally 
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/ * * 

** calc_pressures 

** Put calculated values into force object, apply these to child node 
** 

*/ 

public double calc_pressures (Node parent, Node child) { 
double dx, dy, theta, dist; 
double delta_x, delta_y, distsq; 

double desired_x, desired_y, diff, desired_dist= . 2 , desired_theta=0 ; 
double temp_dist; 
int i, size; 

int ChildCount=0, ChildNum=0; 
int grand_parent_ChildCount=4 ; 
Node tnode=null, grand_parent_node ; 

if ( (parent==null) || (child==null) ) { 

GUI . WARNING ( 0 , " cal cypres sure s 11 , "NULL: parent = " +parent+ n , child="+child) ; 
return (-1) ; 

} 

pxParent = 0 ; py Parent = 0 ; 
pxPOV=pyPOV=0; 
pxNeighbors=pyNeighbors=0 ; 
pxWind=pyWind=0 ; 
pxSum=pySum=0 ; 

if (child. isFrozen) 
return ( 0 ) ; 

/******************************************************************************* 
****** 

// This is expensive, called by calc_pressures each time shifted AN/DN is found 
if (! child. isLayer) 

if (GUI. VRyes (child) ) { 
child. x = child. X; 
child. y = child. Y; 

shi ft_proximally (child, child. X, child. Y) ; 
} 

******************************************************************************** 
**********/ 

if (child. mag < GUI . pos_threshold) 

return (0) ; 
if (child. mag <= 0.2) 

return ( 0 ) ; 

/************************************************** 
** // BEGIN WIND PRESSURE BACK TO DATASEA 
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** if (child. y<0) 

** pyWind=.l; 

************************ **************** *********/ 
if (GUI .drawWind && child . BigChildCount >2 ) 
pyWind = child. BigChildCount * 3.0; 

if (GUI .mode_obj .posit ion_mode . equals ( "Grid" ) ) 

{ 

temp_dist = (double) (child. dist) ; 

if (temp_dist <= 0.0) 

temp_dist = 1.0; 

desired_x = 150-50* (temp_dist) ; // compresses towards the left 
// desired_y = -100 + 10*child .mag ; 

pxPOV = (desired__x - child. x) ; 
// pyPOV = (desired_y - child. y) ; 

} 

else 

if (GUI .mode^obj . pos it ion_mode . equals ( "Lvls " ) ) 

{ 

/********************************************************* 

* delta_y = GUI . datasea . POV . y - child. y; 

* dist = Math, sqrt (del ta_y * delta_y) ,- 

* alpha = 50; 

* opt_dist = alpha * child. dist; 

* desired_x = parent .x+10*alpha* (child. ChildNum- 1- 

0 . 5*parent .ChildCount) / (double) (parent . Chi ldCount * child. dist); 

* desired_y = GUI .datasea. POV. y + opt_dist; 

* pxPOV = desired_x - child. x; 

* pyPOV = desired_y - child.y; 

**********************************************************/ 

// NEW THING ... Organize nodes by Node. dist, URLs by Node. mag separated into 
two half-fields 

if (! child. isAN) { // is not an AN 

desired_x = 20+10* (double) (Node . MAX_MAG - child. mag); // compresses 
towards the right 

} else { // is AN 

//temp_dist = (double) (child. Tdist) ; // - 1) ; 
temp_dist = (double) (child. AN_1 eve 1) ; 
if (temp_dist <= 0.0) 

temp_dist = 1.0; 
desired_x = -50* (temp_dist) ; // compresses towards the left 

} 

// desired_y = parent. y + 10 * child . ChildNum; 

pxPOV = (desired_x - child. x) ; 
// pyPOV = (desired_y - child.y) ; 

} // END NEW LEVEL POSITIONING 

else if (GUI .mode_obj .pos it ion_mode . equals ( "Rel '") ) 
{ // START RELATIVE POSITIONING 
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// BEGIN POV PRESSURE // Optimal dist to POV is 50+300/child.mag 

if (child. mag > 1) { // DON " T BOTHER IF TOO SMALL, THIS IS AN EXPENSIVE 
OPERATION 

if ( (calcPOVPressure==true) && (GUI . datasea . POV !=null)) { 
delta_x = GUI .datasea. POV. x - child. x; 
delta_y = GUI . datasea . POV . y - child. y; 
theta = GUI .get_angle (delta__x, delta_y) ; 
distsq = (delta_x*delta_x) + (delta_y*delta_y) ; 
dist = Math. sqrt (distsq) ; 

pxPOV = (dist-50-300 . /child. mag) * .1* Math. cos (theta) ; 
pyPOV = (delta_y+50+3 00 . /child. mag) ; // * Math . sin (theta) ; 

} 

} // end POV PRESSURE 

// BEGIN PARENT PRESSURE 

if (calcParentPressure==true) { 

{ 

grand_parent_node = parent . get Parent () ; 
if (grand_parent_node != null) 

grand_parent_ChildCount = grand_parent_node . ChildCount ; 

else 

grand_parent_ChildCount = 4; 

if (parent == GUI .datasea. POV) 
desired_dist = 10; 

else 

desired_dist = parent. mag * 40/parent . dist ; // 7/26/99 
if (child. isAN) 

desired_dist += desired_dist ; // double dist for ANs 
ChildCount = parent . ChildCount ; // 6/8/99 
ChildNum = child . ChildNum; // 6/8/99 

ThetaRange = GUI . spread_f actor/ (double) (grand_parent_ChildCount) ; 
desired_theta = ThetaRange*ChildNum + parent . ThetaOff set ; 
desired_theta -= 0.2; 

desired_theta = GUI . spread_f actor* (ChildNum - ChildCount/2 ) + 
parent . ThetaOff set ; 

//desired_theta += (3 . 0/child . mag) *thetaOf f set ; // make spirals 6/21/99 



if (parent . isURL) { // 8/24/99 

desired_dist *= child. mag/4 . 0 ; 

} 

else 

if (parent .isBB) { // 8/24/99 

desired_dist *= child .mag/4 . 0 ; 

> 

else 

if (parent . isDN) { 
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desired_dist *= child. mag/25 . 0 ,• 
} 

child . ThetaOf f set=desired_theta; 

//desired_x = parent. x + desired_dist * Math . sin (desired_theta) ; // 

6/8/99 

//desired_y = parent. y + desired_dist * Math. cos (desired_theta) ; // 

6/8/99 

desired_x = parent. x + desired_dist * Math. cos (desired_theta) ; // 6/8/99 
desired_y = parent. y + desired_dist * Math . sin (desired_theta) ; // 6/8/99 

pxParent = 0 . 5* (desired_x - child. x) ; // 6/8/99 

pyParent = 0 . 5* (desired_y - child. y) ; // 6/8/99 

} 



/***********************************★ 
if (child. isDN) { 
} 

**********************************★/ 
} 

} // END RELATIVE POSITIONING 

// BEGIN NEIGHBOR PRESSURE 

if (calcNeighbor Pressure—true) { 

// DON " T BOTHER IF TOO SMALL, THIS IS AN EXPENSIVE OPERATION 
if ((child. mag >= GUI . pos_threshold) && (! child . isLayer) ) { 

{ 

size = GUI . datasea .node_vec . size () ; 
for (i=0; i<size; i++) { 

tnode = (Node) GUI . datasea . node_vec . element At ( i) ; 
if ( (tnode != child) 

&& ( (tnode. isAN child. isAN) 
|| (! tnode. isAN && ! child. isAN) ) ) { 
//System, out .print (tnode .Name+" 11 ) ; 

delta_x = tnode. x - child. x; 
delta_y = tnode. y - child. y,- 

distsq = ( (delta_x*delta_x) + (delta_y*delta_y) ) ; 
desired_dist = 3* (tnode . size_y + child . size_y) ; 
if (distsq < (desired_dist *desired_dist ) ) { 
theta = GUI . get_angle (delta_x, delta_y) ; 
dist = Math. sqrt (distsq) ; 
if ( ! GUI . mode_ob j . position_mode . equals { "Lvls " ) ) 

pxNeighbors -= (desired_dist-dist) *Math . cos (theta) ; 
pyNeighbors -= 3* (desired_dist -dist) *Math. sin (theta) ; 

} 
} 

} 

} 
} 

} 
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// maybe_noise () ; 

pxSum = pxParent + pxPOV + pxNeighbors + pxWind + xNoise; 
pySum = pyParent + pyPOV + pyNeighbors + pyWind + yNoise; 
5 if (pxSum < 0) 

pxSum = -Math. sqrt (-pxSum) ; 

else 

pxSum = Math. sqrt (pxSum) ; 
if (pySum < 0) 
10 pySum = -Math. sqrt (-pySum) ; 

else 

pySum = Math. sqrt (py Sum) ; 



if (pxSum > GUI .globalMaxPres sure) 
15 GUI . globalMaxPressure = pxSum; 

if (pySum > GUI . globalMaxPressure) 

GUI .globalMaxPressure = pySum; 

return (0) ; 

2 0 } // End of Force . calc_pressures 



/* * 

** noise added to image to avoid stable points and show aliveness 
25 */ 

public void maybe_noise () { 
if (IcalcNoise) { 
xNoise-0 ; 
yNoise=0 ; 
3 0 return ; 

} 

if (noiseCounter==0) { 
xNoise = rand_scale* (GUI . random ( ) - . 5) ; 

3 5 yNoise - rand_scale* (GUI . random ( ) - . 5) ; 

} 

else { 
if (noiseCounter>ll) 
noiseCounter=-l ; 

4 0 xNoise = 0; 

yNoise =0 ; 

} 

noiseCounter ++; 



45 



xNoise = rand_scale* (GUI . random () - . 5) ; 

yNoise = rand_scale* (GUI . random ( ) - . 5) ; 
} // end noise 
} // end of Object Force 



50 
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// This is GetURLInf or . java by Rocky Nevin 

// Started on Flanagan, heavily modified 

// This example is from the book _Java in a Nutshell__ by David Flanagan. 
5 // Written by David Flanagan. Copyright (c) 1996 O'Reilly & Associates. 

// You may study, use, modify, and distribute this example for any purpose. 
// This example is provided WITHOUT WARRANTY either expressed or implied. 

import j ava . net . * ; 
1 0 import j ava . io . * ; 

import j ava . ut i 1 . * ; 

// Return an array of Stings holding the data 

// Parse the path minus the file name, use that to follow hyperlinks 
15 // Create nodes for each URL, link them 



20 



25 



30 



35 
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public class GetURLInfo { 
static String str_array[]; 

Static int MAX_LINES = Node . MAX_TEXT_DATA_LINES ; 

public static void print info (URLConnect ion u) throws IOException { 
int index=0, end=0; 

// Display the URL address, and information about it. 
if (u == null) { 

System. out .println ("GetURLInf o.printinfoO : connection is null") , 

return; 

} 

else {;} 

/********************************************************************** 



45 



System. out . 
System . out 
System. out 
System. out 
System . out 
System. out 
System. out 
System . out 
System. out 
System. out 
System . out 
System. out 
System. out 
System . out 
System. out 
System. out 



println ("GetURLInf o. printinf o () : connection is <"+u+" >" ) ; 

. println (u . getURL ( ) . toExternalForm ( ) + " : 11 ) ; 

. println ( 11 Content Type : " + u . get Content Type ( ) ) ; 

Content Length: " + u .get Content Length ()) ; 
Last Modified: " + new Date (u.getLastModif ied () ) ) , 
Expiration: " + u . getExpirat ion ( ) ) ; 
Content Encoding: " + u . get Content Encoding ()) ,- 
getHeaderField ( 0 ) : " +u . getHeaderField ( 0 ) ) 
getHeaderField ( 1 ) : " +u . getHeaderField ( 1 ) ) 



. println (" 
.println ( " 
. println (" 
.println (" 
.println ( 11 
.println ( " 
. println (" 
.println ( " 
. println (" 
. println (" 
. println ( " 
.print In (" 
. println (" 



getHeaderField (2) 
getHeaderField (3 ) 
getHeaderField (4 ) 
getHeaderField (5) 
getHeaderField ( 6 ) 
getHeaderField ( 7 ) 
getHeaderField ( 8 ) 



" +u . getHeaderField ( 2 ) ) 
» +u . getHeaderField ( 3 ) ) 
"+u. getHeaderField (4) ) 
» +u. getHeaderField (5) ) 
» +u . getHeaderField ( 6 ) ) 
» +u . getHeaderField ( 7 ) ) 
« +u . getHeaderField ( 8 ) ) 



************* ************* 



**********************************************/ 



50 



// Read and print out the first MAX_LINES lines of the URL. 
System. out. println ("First "+MAX_LINES+" lines:"); 
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DatalnputStream in = new Dat alnput Stream (u .get Input St ream ()) ; 
for(int i = 0; i < MAX_LINES; i++) { 
String line = in . readLine ( ) ; 

str_array[i] = line; 
if (line == null) break; 
/***************★***************************************************** 
index = line . toLowerCase (). indexOf ( "href ") ; 
if (index > 0) { 

index += 6; 

end = line . toLowerCase ( ) . indexOf ( » \ " " , index+1) ; 
if (end>index end < line . length () ) 
System. out .printlnC =====> URL? <" + 
line . substring (index, end)+">") ; 

else 

System. out .printlnC =====> PROBLEM: index= u +index+" , 

end="+end) ; 

} 

System. out .println(" i="+i+") " + line) ; 
************★***********************************************************/ 

} 

} 

// Create a URL from the specified address, open a connection to it, 
// and then display information about the URL. 
public String [] get^URL (String name, int max_lines) 
throws Malf ormedURLException, IOException 

{ 

MAX_LINES = max_lines; // OVERRIDE THE DEFAULT HERE 
System, out . print In ("get_URL: MAX_LINES is now M +MAX_LINES) ; 
return (get_URL (name) ) ; 

} // end of max_lines version of get_URL() 



public String [] get_URL (String name) 

throws Malf ormedURLException, IOException 

{ 

str_array = new String [MAX_LINES] ; 
URL url = new URL (name) ; 

URLConnection connection = url . openConnection ( ) ; 



System. out. print In ( "GetURLInf o . getURLO : getHostO : » +url . getHost ( ) ) ; 
System . out . print In ( "GetURLInf o . getURL ( ) : getRef ( ) : " +url . getRef ( ) ) ; 
System, out .print In ( "GetURLInf o . getURL ( ) : toStringO : 11 +url . toString ( ) ) ; 

if ( (0<name. toLowerCase () .indexOf ("http") ) && IGUI.NetOK) { 

Sy stem. out .print In ("GetURLInf o.getURLO : GUI . NetOK is false, aborting 

data retrieval . " ) ; 

return (str_array) ; 

} 

print info (connection) ; 
return ( st r_array) ; 
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} 

} 
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// This is Input. java 

import j ava . io . * ; 
import j ava . ut il . * ; 
import j ava . lang . * ; 

public class Input extends Object { 

GUI gui; // The GUI passed to the Input constructor 

public Input (GUI passed_gui_obj ect ) { // Constructor 

gui = passed_gui_object ; 

} 

/* 

* 
* 

*/ 

// This method breaks a specified label up into an array of words. 

// It uses the StringTokenizer utility class. 

// From Nutshell, chapter 5, Multi*.java 

public Node string_input (String input_string) { 

int num_words ; 

String words [] ; 

String tempStr; 

Node new_node, ret_node=null ; 

double event_offset = 0; 

String event_string= M " ; 

GULP (2, "datasea. string_input " , ,1 <"+input_string+ ,l >") ; 
if (input_st ring. equals (" . ") > { 

tempStr = GUI .prior Command; 

GUI . priorCommand = " " ; 

return (ret_node=string_input (tempStr) ) ; // re-invoke 
} 

GUI .priorCommand = input_string; // for use above, later 

// StreamTokenizer can handle converting strings to numbers, but can't count 
tokens 

// StringTokenizer can not convert but can count. 

// The number result from StreamTokenizer can't easily be converted back into a 
string. 

// Its all unbelievably stupid and complex. 

// StringReader r = new St r ingRe ade r ( input _st ring) ; 
// StreamTokenizer t = new StreamTokenizer (r) ; 

StringTokenizer st = new StringTokenizer ( input_st ring, " , . <>\ " \t\r\n" 

) ; 

num words = st . count Tokens ( ) ; 



-138- 



PATENT 



words = new String [num_words] ; 

event_of f set = 0 ; 
// accumulated_event_of f set = 0; 
for(int i = 0; i < num_words; i++) { 
words [i] = at .nextTokenO ; 
} 



GUI . lastCommandTS = GUI . thisCommandTS ; 
GUI . thisCommandTS = GUI . current_TS ; 

ret_node = word_selector (words, input_string / num_words) ; 

gui .datasea .normalize () ; 

return ( re t_node) ; 

} // end string_input 

public Node word_selector (String [] words, String input_string, int 
num_words) { 

Node new_node, ret_node=null ; 

S t r i ng c ommand ; 

boolean understood = true; 

if (num_ words >= 1) 

command = words [0] ; 

else { 

return (re t_node) ; 

} 

GUI . P (1 , "word_selector" , "num_words=" +num_words+" , input =" +input_st ring) 



if (num_ words =- 0) 

return ( ret_node ) ; 

else 

if (command == null) 

return ( ret_node ) ; 
GUI . P(l, "datasea. word_select or" , input_string) ; 

// COMMANDS Commands commands 

if (command. equals ("net" ) ) { // 
gui.NetOK = Igui.NetOK; 

gui.P<0, "word_selector" , "NetOK = "+gui.NetOK) ; 

.} 

else 

if (command. equals ( "tO " ) ) { // 

gui .max_transition_count = 0; 
GUI . P ( 0 , "datasea . word_se lector" , 
"gui . max_transition_count=" +gui . max_transition_count ) ; 

} 

else 
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if (command. equals ("tl") ) { // 

gu i . max_ t r an s i t i on_c oun t = 1 ; 
GUI . P ( 0 , " datasea . wo rd_se lector" , 
gui .max_transition_count="+gui .max_transition_count) 

} 

else 

if (command. equals("t2") ) { // 

gu i . max_t r ans i t ion_count - 2 ; 
GUI .P(0, "datasea. word_selector" , 
gui . max_transition_count= " +gui . max_transit ion_count ) 
} 

else 

if (command. equals ("t3") ) { // 

gu i . max_t r an s i t i on_c oun t - 3 ; 
GUI . P(0, "datasea.word_selector" , 
gui .max_transition_count=" +gui .max_transition_count ) 

} 

else 

if (command. equal s("t4") ) { // 

gui .max_transition_count = 4; 
GUI . P (0 , "datasea . word_selector" , 
■gui .max_transition_count="+gui .max_transition_count) 

} 

else 

if (command. equals ("t5") ) { // 

gui . max_t rans it ion_count = 5 ; 
GUI . P ( 0 , "datasea . word_selector 11 , 
"gui .max_transition_count=" +gui .max_transition_count) 

} 

else 

if (command. equals("t6") ) { // 

gui .max_transition_count = 6; 
GUI . P (0, " datasea. word_se lector" , 
"gui .max_transition_count=" +gui .max_transition_count ) 

} 

else 

if (command. equals ( "t7" ) ) { // 

gu i . max_t r an s i t i on_c ount = 7 ; 
GUI . P (0 , "datasea . word_selector" , 
"gui . max_t ransit ion_count = " +gui .max_transition_count ) 

} 

else 

if (command. equals ("gl") ) { // 

gui. datasea. group (gui. datasea. POV, 1) ; 

} 

else 

if (command. equals ('^2" ) ) { // 

gui. datasea. group (gui .datasea. POV, 2) ; 

} 

else 
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if (command. equal s("g3") ) { // 

gui . datasea . group (gui . datasea . POV, 3 ) ; 
} 

else 

if { command. equal s ("g4") ) { // 

gui .datasea. group (gui .datasea. POV, 4) ; 

} 

else 

if { command, equals ("max" ) ) { // find maximum mag node 
gui . datasea . f ind_max ( ) ; 

} 

else 

if (command. equals ( "rel" ) ) { // release a node (its link) from the POV 
gui . datasea . word_re lease (words , num_words) ; 
} 

else 

if (command. equals ("freeze" ) ) { // 
gui . datasea . freeze ( ) ; 

} 

else 

if (command. equals ( "unfreeze" ) ) { // 
gui .datasea. unfreeze () ; 

} 

else 

if (command. equals ("flip") ) { // 
gui.FlipAxes = !gui . FlipAxes; 

} 

else 

if (command. equals ("bound") ) { // 

gui . showBoundaries = ! gui . showBoundaries ; 
GUI. P (0, "datasea. word_se lector" , "showBoundaries is 
"+gui . showBoundaries) ; 

if (gui . showBoundaries) 

gui . datasea . set_Tdist_start (gui . lastNode) ; 

} 

else 

if (command. equals ("norm") ) { // shall we normalize? 
gui .doNormalization = ! gui . doNormalization,- 
gui . status ( "doNormalizat ion is " +gui . doNormalization) ; 
} 

else 

if (command. equals ("wind") ) { // shall we use wind? 
gui . drawWind = ! gui . drawWind ; 
gui . status ( " drawWind is " +gui . drawWind) ; 

} 

else 

if (command. equals ("da") ) { // shall we draw Abstract Nodes? 
gui.drawAN = ! gui. drawAN; 
gui . status ( "drawAN is " +gui . drawAN) ; 
} 
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else 

if (command. equals ("don" ) ) { // shall we draw Object Nodes? 
gui . drawON = ! gui . drawON ; 
gui . status ( "drawON is "+gui . drawON) ; 

} 

else 

if (command. equals ("dp") ) { // shall we draw P Nodes? 
gui.drawPN = ! gui. drawPN; 
gui . status ("drawPN is "+gui .drawPN) ; 

} 

else 

if (command. equals ("dc") ) { // shall we draw Context Nodes? 
gui . drawCN = ! gui . drawCN ; 
gui . status ( "drawCN is "+gui .drawCN) ; 

} 

else 

if (command. equals ("dl") ) { // shall we draw Link Names? 
gui . drawLinkNames = ! gui . drawLinkNames ; 
gui . status ( "drawLinkNames is " +gui . drawLinkNames) ; 

} 

else 

if (command. equals ("de") ) { // shall we draw Event Nodes? 
gui , drawE vent = ! gui . drawEvent ; 
gui . status ( "drawEvent is " +gui . drawEvent ) ; 

> 

else 

if (command. equals ("du") ) { // shall we draw Data Nodes? 
gui.drawURL = ! gui . drawURL; 
gui . status ( " drawURL is " +gui . drawURL) ; 

} 

else 

if (command. equals ("dd") ) { // shall we draw Data Nodes? 
gui . drawDN = ! gui . drawDN ; 
gui . status ( 11 drawDN is " +gui . drawDN) ; 
} 

else 

if (command. equals ( "df") ) { // shall we draw Data Nodes? 
gui . drawFile = ! gui . drawFile ; 
gui. status ( "drawFile is " +gui . drawFile) ; 

} 

else 

if (command. equals ( "con" ) ) { // 

gui . datasea . con ( ) ; //mag from the context node connected to lastNode 

} 

else 

if (command. equals ("SS") ) { // 

gui . datasea . SS (words , num_words) ; 
} 

else 

if (command . equals ( "mail" ) ) { // 
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gui . datasea . word_mail (words , num_words) ; 

} 

else 

if (command. equals (" find" ) ) { // 

gui. datasea. word_select (words, num_words) ; 

} 

else 

if (command. equals ("AN") ) { // 

gui .datasea .word_select (words, num_words) ; 

} 

else 

if (command. equals ("DN") ) { // 

gui . datasea . word_s elect (words , nura__words) ; 

} 

else 

if ( command. equals ("select" ) ) { // 

gui . datasea . word_s elect (words , num_words ) ; 

} 

else 

if (command. equals ("un") ) { // 

gui . datasea . word_unselect (words , num_words) ; 

} 

else 

if (command . equals ( "unselect" ) ) { // 

gui . datasea . word_unselect (words , num_words) ; 

} 

else 

if (command. equals (" focus" ) ) { // 

gui . datasea . word_f ocus (words , num_words) ; 

} 

else 

if (command. equals ( "rename" ) ) { // 

gui . datasea . word_rename (words , num_words ) ; 

} 

else 

if (command. equals ( "most " ) ) { // 

gui . datasea . word_most (words , num_words ) ; 

} 

else 

if (command. equals ( "ap") ) { // amplify plus 
gui . amplify_region (1) ; 

} 

else 

if (command. equals ("am") ) { // amplify minus 
gui . amplify_region ( -1) ; 

} 

else 

if (command. equals ("pi") ) { // position levels 
wo r d_mode_c ommand ( word s , num_wo r d s ) ; 

) 
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else 

if (command. equals ("pr") ) { // position relations 
wor d_mode_command ( words , num_words ) ; 

} 

else 

if (command. equal s ("snap") ) { // render VR (now -snap') 
word_mode_command ( words , num_words) ; 

else 

if ( command. equals ( "nosnap" ) ) { // 
word_mode_command (words , num_words) ; 

} 

else 

if (command. equals ("VR" ) ) { // 

if (gui . lastNode != null) { 

gui . lastNode. VRyes = ! gui . lastNode . VRyes ; 

GUI .P (0, "word_s elector" , "VRyes of " +gui . lastNode . Name+" is 
"+gui . lastNode. VRyes) ; 

} 

else 

GUI .WARNING (0, "word_selector" , "Need lastNode for VRyes 

setting") ; 

} 

/************* 
else 

// if (command. equals ("lr") ) { // lines radial 

// word_mode_command (words, num_words) ; 

// } 

else 

// if (command. equals ("Id") ) { // lines distal 

// word_jnode_command (words, num_words) ; 

// } 

else 

// if (command.equalsC'lp 11 ) ) { // lines proximal 

// wor d_mode_command (words , num_words) ; 

// } 
********* / 

else 

if (command. equals ("sr") ) { // spread radial 
word_mode_command ( words , num_words ) ; 

} 

else 

if (command. equals ("sd") ) { // spread distal 
wo rd_mode_command (words, num_words) ; 

} 

else 

if ( command. equals ("sp") ) { // spread proximal 

word_mode_command (words , num_words) ; 

} 

else 
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if (command. equals ("upur Is") ) { 

gui . datasea . upur Is (words , num_words) ; 

) 

else 

if ( command, equa 1 s (" shift Out 11 ) ) { 

gui .datasea . shif tOut (words, num_words) ; 

} 

else 

if (command. equals ("shif tin" ) ) { 

gui . datasea . shif tin (words, num_words) ; 
} 

else 

if ( command. equal s ("shift InAll") ) { 

gui .datasea. shif tlnAll (words, num_words) ; 

} 

else 

if (command. equals ("shif tOut All") ) { 

gui .datasea. shif tOutAll (words, num_words) ; 
) 

else 

if ( command. equa Is ("shi ft Out" ) ) { 

gui . datasea . shif tOut (words , num_words ) ; 

} 

else 

if (command. equals (" heavy 1" ) ) { 

gui. datasea. heavyanst (Node) null, gui . lastNode, 1, 0) ; 

} 

else 

i f ( command . equal s ( " heavy2 " ) ) { 

gui .datasea. heavyans ( (Node) null, gui . lastNode , 2, 0) ; 

} 

else if (command. equals ("heavy3") ) { gui . datasea . heavyans ( (Node) null , 
gui. lastNode, 3, 0); } else if (command . equals ( "heavy 4 " ) ) { 
gui .datasea. heavyans ( (Node) null, gui . lastNode , 4, 0); } else if 

(command. equals ("anl" ) ) { gui . datasea .mag_ans ( (Node) null , gui . lastNode , 1, 0) ; 

} else if ( command. equa ls("an2 M ) ) { gui . datasea .mag_ans ( (Node) null , 

gui. lastNode, 2, 0); } else if (command . equals ( "an3 " ) ) { 

gui. dat asea. mag_ans ( (Node) null, gui . lastNode , 3, 0); } else if 

( command . equal s ( " an4 " ) ) { 

gui .dat asea. mag_ans ( (Node) null, gui . lastNode, 4, 0) ; 

} 

else 

if (c ommand. equals ("ans" ) ) { 
gui . datasea . ans ( ) ; 

} 

else 

if (command. equals ( "storebig") ) { 
gui . datasea . storebig ( ) ; 

) 

else 



-145- 



if (command . equals ( M xl" ) ) { 
gui . datasea . storebig ( ) ; 

} 

else 

i f ( command . equal s ( " x2 " ) ) { 
gui . datasea . f lattenANs ( ) ; 

} 

else 

if ( command. equal s ("x3") ) { 
gui . datasea . absURLs ( ) ; 

} 

else 

if ( command. equal s ("x4" ) ) { 
gui . datasea . inhstored ( ) ; 

} 

else 

if (command. equals ( "connect " ) ) { 
gui . datasea . connect_all_to_POV ( ) ; 
} 

else 

if (command. equals ("absURLs") ) { 
gui . datasea . absURLs ( ) ; 

} 

else 

if (command. equals ("inhstored") ) { 
gui . datasea . inhstored ( ) ; 

} 

else 

if (command. equals ( "xabs" ) ) { 
gui . datasea . storebig ( ) ; 
gui . datasea . f lattenANs ( ) ; 
gui . datasea . absURLs ( ) ; 
gui . datasea . inhstored ( ) ; 

} 

else 

if (command. equals ( "select recent") ) { 
gui . datasea . selectrecent ( ) ; 
} 

else 

if (command. equals (" f lattenANs" ) ) { 
gui . datasea . f lattenANs ( ) ; 

} 

else 

if (command. equals ("abs" ) ) { 

gui . datasea . abs (words , num_words ) ; 

} 

else 

if (command. equals ( "abs 1" ) ) { 

gui . datasea . abs (words , num_words) ; 

} 
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else 

if (command. equals ( "ab s2" ) ) { 

gui . datasea . abs (words , num_words) ; 

} 

else 

if (command. equals ( "abs3 ,r ) ) { 

gui . datasea . abs (words , num_words) ; 

} 

else 

if (command. equals ( "sim" ) ) { 

gui .datasea. sim (words, num_words, '+'); 

} 

else 

if (command. equals ( "unsim" ) ) { 

gui . datasea . sim (words , num_words , ' - • ) ; 

} 

else 

if (command. equals ( "pump" ) ) { // pump up all distal nodes 
gui . datasea .pump (gui . lastNode) ; 

} 

else 

if (command. equals ("local" ) ) { 
gui . datasea . local (gui . lastNode) ; 

} 

else 

if (command. equals ("chain") ) { // mag similar nodes dis tally 
gui . datasea . chain (gui . lastNode) ; 
} 

else 

if (command. equals ("sides") ) { // strip off AN's, see sides of chains 

of data 

gui . datasea . sides (gui . lastNode) ; 

} 

else 

if (command. equals ("org" ) ) { // Organize children's theta position by- 
mag 

gui. datasea. theta_org = ! gui . datasea . theta_org ; 

gui . status ( "theta_org = " +gui . datasea . theta_org) ; 

GUI.P(0, "word_selector" , "theta_org = " +gui . datasea . the ta_org) ; 

} 

else 

if (command. equals ("strip") ) { // strip off DN's, see only AN's 
gui . datasea .strip (words , num_words) ; 

} 

else 

i f ( command . equal s ( " and " ) ) { 

gui . datasea . and (words , num_words ) ; 

} 

else 

i f ( command . equal s ( " backup " ) ) { 
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gui . datasea . backup ( ) ; 

) 

else 

if { command. equals ("pot" ) ) { 

gui . datasea . pot (words , num_words) ; 

i 

else 

if (command. equals ( "potmag" ) ) { 
Node .potentiation - 1; 
gui . datasea . potmag (words , num_words ) ; 
} 

else 

if ( command. equal s ("npotmag" ) ) { 
Node. potentiation = -1; 
gui . datasea . potmag (words , num_words ) ; 
} 

else 

if (command. equals ( "cats" ) ) { 

gui . datasea . cats (words , num__words) ; 

} 

else 

if (command. equals ( "backs" ) ) { 

gui . datasea .backs (words , num_words) ; 
} 

********************************** 
else 

if (command. equals ( "upstream" ) ) { 

gui . datasea . upstream (words , num_words) 

} 

******************************/ 
else 

if (command. equals ( "back3" ) ) { 

gui . datasea. back3 (words, num_words) ; 

} 

else 

if (command. equals ( "backt" ) ) { 

gui . datasea . backt (words , num_words ) ; 

} 

else 

if (command. equals ("back") ) { 

gui . datasea .back (words , num_words) ; 

} 

else 

if (command. equals ("Back" ) ) { 

gui . datasea . Back (words , num_words) ; 

} 

else 

i f ( command . equal s ( " dumpCNs " ) ) { 
gui . datasea . dumpCNs ( ) ; 

} 
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else 

if (command. equals ("showCNs") ) { 
gui . datasea . showCNs ( ) ; 
} 

5 else 

if ( command. equal s ("showevents 11 ) ) { 
gui . datasea . showevents ( ) ; 
} 

else 

10 if ( command. equals ("showtime" ) ) { 

gui . datasea . showtime ( ) ; 
} 

else 

if ( command. equal s ( "link") ) { // 
1 5 gui . datasea . word_link (words , num_words) ; 

gui .datasea. needdistUpdate = true; 

} 

else 

if (command. equals ("unlink") ) { // 
2 0 gui . datasea . word_unl ink (words , num__words ) ; 

gui .datasea. needdistUpdate - true; 

} 

else 

if (command. equals ("delete") ) { // 

2 5 gui . datasea . word_delete (words , num_words) ; 

gui .datasea. needdistUpdate = true; 

} 

else 

if ( command. equals (" show" ) ) { 

3 0 gui . datasea . show ( input_string) ; 

} 

else 

if (command. equals ("setPOV") ) { 
gui . datasea . set_POV ( ) ; 
3 5 gui .datasea. needdistUpdate = true; 

} 

else 

if (command. equals ( "one" ) ) { 
gui . datasea . reset_mags ( ) ; 

40 } 
else 

if (command. equals ("distupdate") ) { 
gui . datasea. needdistUpdate = true; 

} 

45 else 

if (command. equals ( "quick" ) ) { 
gui. quick = ! gui. quick; 

gui. P (0, "word_select or" , "quick = " +gui . quick) ; 
gui . status ( "quick = " +gui . quick) ; 

50 } 
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else 

if (command. equals ( "resetprint " ) ) { 
GUI . global_str_size = 0; 

} 

else 

if (command. equals ("resetCS" ) ) { 
gui . datasea . reset_CSs ( ) ; 

} 

else 

if (command. equals ( "save" ) ) { 
gui . datasea . word_save ( ) ; 

} 

else 

if (command. equals ("reset") ) { 
gui . datasea . word_reset ( ) ; 

gui.datasea.needdistupdate = true; 

} 

else 

if (command. equals ("X") ) { 
gui . set_Xnode ( ) ; 

} 

else 

if (command. equals ( "r") ) { 
gui .datasea. word_reset () ; 

gui . auto_rescale = true; 

gui . status ( "auto_re scale = "+gui . auto_rescale) 

} 

else 

if ( command. equals ("buttons" ) ) { 
gui . show_buttons ( ) ; 

} 

else 

if (command. equals ("lines" ) ) { 

gui . mode_ob j . toggle_lines_mode ( ) ; 

} 

else 

if (command. equals ( "enh" ) ) { 

gui . datasea . enhance (words , num_words ) ; 

} 

else 

if (command . equals ( "ml" ) ) { 

gui . datasea .mag (words, num_words, "both", 1, "+") 

} 

else 

if ( command. equal s ( "m2" ) ) { 

gui .datasea. mag (words, num_words, "both", 2, "+") 

} 

else 

if (command. equals ( "m3") ) { 

gui .datasea .mag (words , num_words, "both", 3, " + " ) 
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} 

else 

if (command. equals ("m4") ) { 

gui .datasea. mag (words, mim_words, "both", 4, "+"); 

} 

else 

if (command. equals ("mS") ) { 

gui .datasea .mag (words, num_words, "both", 5, "+"); 

} 

else 

if (command. equals ( "m6") ) { 

gui. datasea. mag (words, num_words, "both", 6, "+"); 

} 

else 

if (command. equals ("m7" ) ) { 

gui .datasea. mag (words, num_words, "both", 7, " + "); 

} 

else 

i f ( command . equal s ( "magdown " ) ) { 

gui . datasea . magdownstream (words , num_words ) ; 

} 

else 

if (command. equals ("mag") ) { 

gui .datasea. mag (words, num_words, "both", 3, " + "); 

} 

else 

if (command. equals ("choices") ) { // print ANs > BIG_MAG for each dist 
Thes 1 

gui . datasea . choices ( ) ; 

) 

else 

if (command. equals ( "magtype" ) ) { // mag all distally to infinity 
gui.datasea.magtype(gui.lastNode, (String) null, 'd'); 
gui. datasea. magtype (gui. las tNode, (String) null, 'p'); 

} 

else 

if ( c ommand. equal s ("magd") ) { // mag all distally to infinity 
gui . datasea . magd ( ) ; 

} 

else 

if (command. equals ("Mag" ) ) { 

gui .datasea. mag (words, num_words, "both", 6, " + "); 

} 

else 

if (command. equals ("dl" ) ) { 

gui .datasea. mag (words, num_words, "both", 1, "-"); 

} 

else 

if ( command. equals ("d2" ) ) { 

gui . datasea . mag (words , num_words , "both" , 2 , " - " ) ; 



PATENT 



} 

else 

if (command. equals ("d3") ) { 

gui .datasea. mag (words, num_words, "both", 3, "-" ); 

} 

else 

if (command . equals ( "d4 " ) ) { 

gui .datasea .mag (words , nura__words , "both", 4, "-"); 

} 

else 

if (command. equals ("d5") ) { 

gui. datasea. mag (words, num_words, "both", 5, "-"); 

} 

else 

if ( command, equal s ("d6 11 ) ) { 

gui . datasea . mag (words , num_words , "both" , 6 , " - " ) ; 

} 

else 

if (command. equals ("d7") ) { 

gui . datasea . mag (words , num_words , "both" , 7 , " - " ) ; 

} 

else 

if (command. equals ("dec") ) { 

gui .datasea .mag (words, num_words, "both", 3, "-"); 

} 

else 

if (command. equals ("Dec") ) { 

gui .datasea .mag (words, num_words, "both", 5, "-"); 

} 

else 

if (command. equals ( "input") ) { 

ret_node - word s_input (words , input_string, num_words) ; 

} 

else 

if (command. equals ("zoom") ) { 

gui . datasea . word_zoom (words , num_words ) ; 
gui.magscale *= 3.0; 

gui . auto_rescale = false , - 

gui . status ( 11 auto_rescale = " +gui - auto_re scale ) ; 

} 

else 

if (command. equals ( "a" ) ) { 

gui . spread_f actor -= 0.05; 

GUI . P ( 0 , " word_selector " , " spread_f actor = " +gui . spread_f actor) ; 
} 

else 

if (command. equals ("A") ) { 

gui . spread_f actor += 0.05; 

GUI . P (0, "word_se lector" , " spread_f actor = "+gui . spread_f actor) ; 
} 
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else 

if ( command. equa Is ("d") ) { 

gui . datasea . word_dump (words , num_words ) ; 

} 

else 

if (command. equals ("D") ) { 

gui . datasea . word_dump (words , num_words ) ; 

} 

else 

if ( command. equals ("tree" ) ) { 

gui . print_tree (words , num_words) ; 
} 

else 

if (command. equals ("printup") ) { 

gui .datasea. print_upst ream ( (Node) null, gui . lastNode) ; 

} 

else 

if (command. equals ("print") ) { // print results of all 
gui . datasea . print ( ) ; 

} 

else 

if (command. equals ("oldprint") ) { 

gui . datasea . word_print (words , num_words ) ; 

} 

else 

if (command. equals ( "state") ) { 
gui . state () ; 

} 

else 

if (command. equals ("halt" ) ) { 
gui . request_stop_thread ( ) ; 

} 

else 

if (command. equals ("run" ) ) { 
gui . run_thread ( ) ; 

} 

else 

if (command. equals ("stop") ) { 
gui . stop_thread ( ) ; 

} 

else 

if (command. equals ( "scale") ) { 

gui . auto_rescale = ! gui . auto_re scale ; 

GUI . P (0, "word_selector" , "auto_rescale = "+gui . auto_rescale) ; 
gui . status ("auto_rescale = " +gui . auto_rescale) ; 

} 

else 

if (command. equals ("in" ) ) { 
gui.magscale *= 2.0; 

gui . auto_rescale = false; 
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gui . status ("auto_rescale = " +gui . auto_rescale) ; 

} 

else 

if {command . equals ( 11 In" ) ) { 
gui .magscale *= 6.0; 

gui . auto_rescale = false; 

gui. status ("auto_rescale = "+gui . auto__rescale) ; 

} 

else 

i f ( command . equal s ( " out " ) ) { 
gui. magscale /= 2.0; 

gui . auto_rescale = false; 

gui. status ("auto_rescale = "+gui . auto_rescale) 

} 

else 

if (command. equals ( "Out" ) ) { 
gui. magscale /= 6.0; 

gui . auto_rescale = false; 

gui . status ( M auto_rescale = "+gui . auto_re scale) 

} 

else 

if ( command. equals ("up") ) { 

gui . WindowYOf f set += 150/gui .magscale ; 
gui . auto_rescale = false; 

gui . status ( "auto_rescale = "+gui . auto_re scale) 

} 

else 

if (command. equals ( "Up" ) ) { 

gui .WindowYOf f set += 450/gui .magscale ; 
gui . auto_rescale = false; 

gui . status ( "auto_rescale = "+gui . auto_re scale) 

} 

else 

if (command. equals ( "do" ) ) { 

gui .WindowYOf f set -= 150/gui .magscale ; 
gui . auto_rescale = false; 

gui . status ( "auto_rescale = " +gui . auto_re scale) 

> 

else 

if (command. equals ("Do") ) { 

gui .WindowYOf f set -= 4 50/gui . magscale ; 
gui . auto_re scale = false; 

gui . status ( "auto_re scale = "+gui . auto_rescale) 

} 

else 

if (command. equals ( "le") ) { 

gui .WindowXOf f set -= 150/gui .magscale ; 
gui . auto_re scale = false; 

gui . status ( "auto_rescale = "+gui . auto_rescale) 

} 
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else 

if (command. equals < "lie" ) ) { 

gui .WindowXOf f set -= 450/gui .magscale; 
gui .auto_rescale = false; 

gui . status ( "auto_re scale = "+gui . auto_rescale) 

} 

else 

if (command. equals ( "ri" ) ) { 

gui .WindowXOf f set += 150/gui . magscale ; 
gui . auto_re scale = false; 

gui . status ("auto_rescale = " +gui . auto_rescale) 

} 

else 

if (command. equals ("Ri") ) { 

gui .WindowXOf f set += 4 50/gui .magscale ; 
gui.auto_rescale = false; 

gui. status (" auto_re scale = "+gui .auto_re scale) 

} 

else 

if (command.equalsC's") ) { 
gui . spread_f actor *= 0.9; 

} 

else 

if ( command. equa 1 s ("S") ) { 
gui . spread_f actor * = 1.1; 

} 

else 

if (command. equals ( "q" ) ) { 
gui .quit () ; 

} 

else 

i f ( command . equal s ( " m " ) | | command . equal s ( " more » ) ) { 
gui .datasea.moreless ("m" ) ; 

} 

else 

if ( command. equal s("l") || command . equals (" less" ) ) { 
gui . datasea . moreless ( " 1 " ) ; 

} 

else 

if ( command. equa 1 s ("t") ) { 

gui .mode_obj . toggle_draw_text ( ) ; 

} 

******************************************************* 
else 

if ( command. equals ("sett iny" ) ) { 

gui . TinyNode = gui . lastNode ; 
if (gui .TinyNode != null) { 

if (gui. TinyNode .Tiny Scale == 1.0) 

gui . TinyNode . TinyScale = 0.2; 

else 
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gui . TinyNode . TinyScale = 1.0; 
GUI . P (0, "word_se lector" , "TinyNode "+gui .TinyNode .Name+" 

Scale="+ 

gui . TinyNode . TinyScale) ; 

} 

} 

else 

if (command. equals ("make tiny") ) { 
gui .TinyNode = gui . lastNode ; 
if (gui .TinyNode != null) { 

if (gui .TinyNode .TinyScale == 1.0) 

gui . TinyNode . TinyScale = 0.2; 

else 

gui . TinyNode . TinyScale = 1.0; 
GUI . P (0, "word_se lector" , "TinyNode " +gui . TinyNode . Name+" 

Scale="+ 

gui .TinyNode .TinyScale) ; 
gui .TinyFlag = true; 

} 

} 

else 

if (command. equals ("tiny") ) { 

gui. TinyFlag = ! gui . TinyFlag; 

GUI. P (0, "word_selector»\ "TinyFlag is " +gui . TinyFlag) ; 

} 

else 

if (command. equals ( "details" ) ) { 

gui. Details = ! gui . Details ; 

gui . status ("Details = "+gui .Details) ; 

} 

****************************************** ********************************/ 
else 

if (command. equals ("update" ) ) { 

gui.datasea.needdistUpdate = true; 

} 

else 

if (command. equals ("parse") ) { 
gui. parse = ! gui. parse; 

GUI . P (0, "word_selector" , "parse is " +gui .parse) ; 
gui. status ("parse is " +gui . parse) ; 

} 

else 

if (command. equals ("debug") ) { 

if (gui. lastNode 1= null) { 

gui . lastNode . Debug = ! gui . lastNode . Debug ; 

GUI.P(0, "word_se lector" , "lastNode ( "+gui . lastNode .Name+" ) .Debug is 
" +gui . lastNode . Debug) ; 

> 

} 

else 



if (command. equals ( "diag" ) ) { 

gui . diag_f rame . setVisible (true) ; 

} 

else 

if (command . equals ( "nodiag" ) ) { 

gui . diag__f rame . setVisible (false) ; 

) 

else 

if (command . equals ( "u" ) ) { 
gui . datasea. undo (1) ; 

) 

else 

i f ( command . equal s ( " smp " ) ) { 

gui .datasea. simplify (words, num_words) ; 

} 

else 

if (command. equals ( "trim") ) { // m=minus 

gui . datasea . votejbranch (words , num_words , " - 11 ) ; 

} 

else 

if (command . equals ( "grow" ) ) { // p=plus 

gui .datasea. vote_branch (words, num_words, " + "); 

} 

else 

if (command. equals ( "yes" ) ) { // p=plus 

gui . datasea . vote_branch (words , num_words , 11 +" ) ; 

} 

else 

if (command. equals ( "no") ) { // m=minus 

gui . datasea . vote_branch (words , num_words , " - " ) ; 

} 

else 

if (command. equals ( "boxes" ) ) { 

gui.drawBoxes = ! gui .drawBoxes ; 

GUI . P (0, "word_se lector ", "drawBoxes is " +gui . drawBoxes) 

} 

else 

if (command .equals ( "4 " ) ) { 

gui . datasea . reset_mags (Node . MAX_MAG) ; 

} 

else 

if (command. equals ( "3 " ) ) { 

gui .datasea. reset_mags (Node .BIG_MAG) ; 

} 

else 

if (command.equals("2") ) { 

gui . datasea . reset_mags (Node . MED_MAG) ; 

} 

else 

if (command . equals ( "1" ) ) { 
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gui . datasea . reset_mags (Node . BARE L Y_V I S I BL E_MAG + . 2 ) ; 

} 

else 

if (command. equals ("0" ) ) { 

gui . datasea . reset_mags (Node . BARELY_INVISIBLE_MAG) ; 

} 

else 

if (command. equals ("x" ) ) { 

gui . coordinates_on = ! gui . coordinate s_on; 

} 

else 

if (command . equals ( " f la" ) ) { 
gui . datasea . flatten ( ) ; 

} 

else 

if (command, equals ( 11 sha") ) { 
gui . datasea . sharpen ( ) ; 

} 

else 

if (command. equals ("norm") ) { 
gui -datasea. normal ize ( ) ; 

} 

else 

if (command. equals ( "newframe" ) ) { 
gui . extra_f rame ( ) ; 

} 

else 

if (command. equals ("test" ) ) { 
gui . datasea . test ( ) ; 

} 

else 

if (command, equals ( "st opspread") ) { 
if (gui . lastNode != null) { 

gui . lastNode.StopSpread ■ true; 

gui . P (0, "input" , "St opSpread true for " +gui . lastNode .Name) 

> 

} 

else 

if (command. equals ("isolate") ) { 
gui .datasea. isolate () ; 

} 

else 

if (command. equals ("clean") ) { 
gui . datasea . clean ( ) ; 

} 

else 

if (command. equals ("like") ) { 

gui . datasea . like (gui . lastNode) ; 

} 

else 
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if (command . equals ( 11 inh" ) ) { 

gui . datasea . inhibit (words , num_words) ; 

} 

else 

if (command. equals ( "inhd" ) ) { // inh all distally to infinity 
gui . datasea . inhd ( ) ; 

} 

else 

if ( command. equals ("drill" ) ) { 

gui .datasea. drill (words, num_words) ; 

} 

else 

if (command. equals ("set" ) ) { 

gui. datasea. par se_set_cmd( words, num_words) ; 

> 

else 

if (command. equals ( "recent " ) ) { 
gui . datasea . recent ( ) ; 

} 

else 

if (command. equals ( "lm") ) { 

gui .mode_obj . toggle_line_mode ( ) ; 

} 

else 

if (command . equals ( 11 . 11 ) ) { 

gui . datasea . repeat_pri or Command ( ) ; 

} 

else 

if (command. equals ( "rm" ) ) { 

gui .mode_obj . toggle_render__mode () ; 

} 

else 

if (command. equals ( "pm" ) ) { 

gui .mode_obj . toggle_position_mode ( ) ; 

} 

else 

if (command. equals (" sm" ) ) { 

gui .mode_obj . toggle_spread_mode ( ) ; 

} 

else 

if (command. equals ( "auto" ) ) { 
gui . datasea . auto_f latten ( ) ; 

> 

else 

if (command. equals ( "pol" ) ) { 

gui .checkPolarization = ! gui . checkPolarizat ion; 
GUI . P (0, "word_se lector" , "gui . checkPolarization = 
"+gui . checkPolarization) ; 

} 

else 
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if (command. equals ("clear" ) ) { 
gui . datasea . init ( ) ; 

} 

else 

5 if (command. equals ( "clearstatus" ) ) { 

gui . clear_status ( ) ; 

} 

else 

if (command. equals ("clearmsg" ) ) { 
10 gui.global_str [Oj - ""; 

gui .global_str_size = 0; 

} 

else 

if (command. equals ("action") ) { 
1 5 gui . action (gui . lastNode) ; 

} 

else 

if ( command. equals ("get" ) ) { 

if (null != gui .lastNode) 
20 GUI . P ( 0 , "word_selector " , "getting: " +gui . lastNode . Name) ; 

gui . datasea. pop .get_a_URL (gui . lastNode) ; 

} 

else 

if (command. equals ("readf ile" ) ) { 

2 5 gui . datasea .pop . read_in_net_f ile (0) ; 

} 

else 

if (command. equals ("readf ilel") ) { 

gui . datasea. pop. read_in_net_f ile (1) ; 

30 } 
else 

if (command . equals ( " readf ile2 " ) ) { 

gui . datasea. pop. read_in_net_f ile (2) ; 

} 

3 5 else 

if (command. equals ("get file" ) ) { 
gui . datasea . pop . get_f ile ( ) ; 
} 

else 

40 if (command, equals ( "tallis" ) ) { 

gui. datasea. pop. pull_in_URLs ( (String) "www.Tallis.com/" , 

"TOC.html", 1, (Node) null) ; 

} 

else 

4 5 if (command. equals ("newtest") ) { 

gui . datasea . newtest ( ) ; 
} 

else 

if (command. equals ("poprev") ) { 

5 0 gui . datasea . pop . poprev ( ) ; 
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} 

else 

if (command. equals { "popegg" ) ) { 
gui . datasea . pop . popegg ( ) ; 
5 } 
else 

if (command. equals ( "poptal" ) ) { 

gui . datasea . pop . pull_in_URLs ( ( String) " f ile : /usr/people/rocky/CIM/web/Tall 
10 isBack/CIM.html" , 1, (Node) null) ; 

} 

else 

if (command. equals ( "popCIM" ) ) { 

15 gui. datasea. pop. pul l_in_URLs ( (String) " f ile : /usr/people/rocky/CIM/web/" , 

" index . html " , 1, (Node) null); 
} 

else 

if (command. equals ( "popt alii s" ) ) { 
2 0 gui. datasea. pop. pul l_in_URLs( (String) "http : //www. Tall is . com/" , 

"Profile.html", 1, (Node)null); 
} 

else 

if (command . equals ( "popucb" ) ) { 

2 5 gui .datasea. pop. pul l_in_URLs { (String) "http://www.berkeley.edu/" , 

" index . html ", 1 , (Node ) nul 1 ) ; 
} 

else 

3 0 if (command, equals ("showdist" ) ) { 

gui . datasea . showdist (words , num_words ) ; 

} 

else 

3 5 if (command, equals ( "runl" ) ) { 

gui . runl ( ) ; 
} 

// populate POPULATE 
else 

4 0 if (command, equals ("pop frame") ) { 

gui . datasea . pop . popf rame ( ) ; 

gui .datasea. needdistUpdate = true; 

} 

else 

4 5 if (command . equals ( "popBB" ) ) { 

gui . datasea . pop . popBB ( ) ; 
gui .datasea. needdistUpdate - true; 

} 

else 

50 if ( command. equals ("popf iles") ) { 
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(Node) null) ; 



10 



15 



20 



25 



30 



35 



40 



45 



// 
// 
// 
// 



gui .datasea -pop .pull_in_URLs ( (String) null , (String) null , 1, 



gui . datasea .needdist Update = true; 



} 



else 

if (command, equals ( "popl 11 ) ) { 

gui . datasea .pop .pop_initial ( ) ; 
gui . datasea .pop 
gui . datasea . pop 
gui . datasea .pop 
gui .datasea .pop 
gui . datasea . pop 
gui . datasea . pop 



popd ( ) 
pops ( ) , 
popm ( ) 
popf () , 
popn ( ) , 
popx ( ) i 

//gui . datasea .pop .pop_proper ties 0 ; 
gui. datasea. needdistUpdate = true; 



} 



50 



else 

if (command. equals ("pop2") ) { 

gui. datasea. pop. popEconO ; 

gui . datasea . pop . popDM ( ) ; 

gui . datasea . pop . popSemi ( ) ; 

gui . datasea . pop . popURLs ( ) ; 

gui . datasea . pop . popf ab ( ) ; 

gui . datasea . pop . popmap ( ) ; 

gui. datasea. needdistUpdate = true; 

} 

else 

if (command. equals ( "popgroc" ) ) { 
gui . datasea .pop .popgroc () ; 
gui .datasea. needdistUpdate - true; 

} 

else 

if (command . equals ( "popcntl" ) ) { 
gui . datasea . pop . popcntl ( ) ; 
gui .datasea. needdistUpdate = true; 

} 

else 

if (command. equals ( "popapps" ) ) { 
gui . datasea . pop . popapps ( ) ; 
gui .datasea. needdistUpdate = true; 

} 

else 

if (command. equals ("popportal") 
gui . datasea . pop . popportal ( ) 

} 

else 

if (command. equals ( "popp" ) ) { 
gui . datasea . pop . popp ( ) ; 
gui . datasea . needdistUpdate 

} 



true; 
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else 

i f ( command . equal s ( " poppp " ) ) { 
gui . datasea . pop . poppp ( ) ; 
gui .datasea.needdistUpdate = true; 

} 

else 

if (command . equals ( "popnet " ) ) { 
gui . datasea . pop . popnet ( ) ; 
gui .datasea.needdistUpdate = true; 

} 

else 

if ( command. equal s ("popw") ) { 

gui . datasea . pop . popweb ( ) ; 

gui .datasea.needdistUpdate = true; 

} 

else 

if (command. equals ("pop initial 11 ) ) { 
gui .datasea. pop. pop_initial () ; 
gui .datasea.needdistUpdate = true; 

} 

if (command. equals ("pop in") ) { 
gui . datasea . pop . popin ( ) ; 

} 

else 

if (command. equals ( "pop synonyms " ) ) { 
gui . datasea . pop . pop_synonyms ( ) ; 

gui .datasea.needdistUpdate = true; 

} 

else 

if ( command. equal s ("popEcon" ) ) { 
gui . datasea . pop . popEcon ( ) ; 
gui .datasea.needdistUpdate = true; 

} 

else 

if (command. equals ( "popDM" ) ) { 
gui . datasea . pop . popDM ( ) ; 
gui . datasea . needdistUpdate = true 

} 

else 

if ( command. equal s ( "pops emi") ) { 
gui . datasea . pop . popSemi ( ) ; 

gui .datasea.needdistUpdate = true 

} 

else 

if (command. equals ("popURLs") ) { 
gui . datasea . pop . popURLs ( ) ; 

gui .datasea.needdistUpdate = true 

} 

else 

if (command. equals ( "popt" ) ) { 
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gui .datasea .pop -popt ( ) ; 

gui -datasea.needdistUpdate = true; 

} 

else 

5 if (command. equals ( "popTL" ) ) { 

gui. datasea. pop. popTL() ; 

gui .datasea.needdistUpdate = true; 

} 

else 

10 if (command. equals ( "popd" ) ) { 

gui . datasea . pop . popd ( ) ; 

gui .datasea.needdistUpdate = true; 

} 

else 

15 if (command. equals ("demol") ) { 

gui.demol () ; 

} 

else 

i f ( command . equal s ( 11 popm " ) ) { 
2 0 gui . datasea . pop . popm ( ) ; 

gui .datasea.needdistUpdate = true; 

} 

else 

if (command . equals ( "demo2 " ) ) { 

2 5 gui . demo2 ( ) ; 

} 

else 

if (command. equals { "rem" ) ) { 
gui . datasea . remember ( ) ; 

30 } 

else 

if (command. equals ( "for" ) ) { 
gui . datasea . forget ( ) ; 

} 

3 5 else 

if (command. equals ( "peg" ) ) { 
gui . datasea . peg ( ) ; 

} 

else 

4 0 if (command, equals ( "pops" ) ) { 

gui . datasea . pop . pops ( ) ; 

} 

else 

if (command. equals ( "popf" ) ) { 
4 5 gui .datasea .pop .popf () ; 

} 

else 

i f ( command . equal s ( 11 demo3 " ) ) { 
gui . demo3 ( ) ; 

50 } 
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else 

i f ( command . equal s ( " popx " ) ) { 
gui . datasea . pop . popx ( ) ; 

gui.datasea.needdistUpdate = true; 

} 

else 

if (command . equals ( "popn" ) ) { 
gui . datasea . pop . popn ( ) ; 

gui.datasea.needdistUpdate = true; 

} 

else 

if (command . equals ( "popmap" ) ) { 
gui . datasea . pop . popmap ( ) ; 

gui.datasea.needdistUpdate - true; 

} 

else 

if ( command. equals ("popfab") ) { 
gui . datasea . pop . popfab ( ) ; 

gui.datasea.needdistUpdate = true; 

} 

else 

if (command. equals ( "popcal" ) ) { 

gui . datasea . pop . popcalendar ( ) ; 

gui.datasea.needdistUpdate - true; 

} 

else 

if ( command . equal s ( " pope " ) ) { 
gui. datasea. pop. pope () ; 

gui.datasea.needdistUpdate = true; 

} 

else 

if (command. equals ( "why" ) ) { 

gui . datasea . word_trace (words , num_words) ; 

} 

else 

if (command. equals ( "trace" ) ) { 

gui . datasea . word_trace (words , num_words ) ; 

} 

else 

i f (command . equal s ( " what s " ) ) { 

gui . datasea . what s (words , num_words ) ; 

} 

else 

understood = false; 
if ( ! understood) 

GUI .WARNING (0, "word_selector " , "Command ""+words [0] +" ' not 

understood . 11 ) ; 

//gui.datasea.needdistUpdate = true; 
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return (ret_node) ; 

} // end word_selector 



/ * * 

** method word_mode_command set the spread mode 

*/ 

public void word_mode_command {String [] words, int num_words) { 
if (num_ words ==0) { 

GUI . ERROR ( 0 , " word_mode_command" , " Zero words given . " ) ; 

return ; 

} 

GUI . P ( 0 , " word_mode_command" , "Got command ' " +words [03 + " ' " ) ; 

// 

if (words [0] .equals ( "sr") ) 

gui ,mode_obj . set_spread_mode ( "radial" ) ; 
else if (words [0] .equals {"sd") ) 

gui .mode_obj . set_spread_mode ( "distal" ) ; 
else if (words [0] .equals ("sp") ) 

gui . mode_ob j . set_spread_mode ( "proximal " ) ; 

// 

/*********************** 

else if (words [0] .equals ("lr" ) ) 

gui . mode_ob j . toggle_lines_mode ( " radial " ) ; 
else if (words[0] . equals (" Id" ) ) 

gui . mode_obj . toggle_lines_mode ( "distal " ) ; 
else if (words [0] .equals ("lp") ) 

gui . mode_ob j . toggle_lines_mode ( "proximal" ) ; 

************** j 

// 

else if (words [0] .equals ( "snap" ) ) 

gui . mode_ob j . set_render_mode ( " VR" ) ; 
else if (words [0] . equals ( "nosnap" ) ) 

gui . mode_ob j . set_render_mode (" relations " ) ; 



// 



else if (words [0] . equals ( "pr" ) ) 

gui .mode_obj . set_position_mode ( "relations" ) ; 
else if (words [0] .equals ("pi" ) ) 

gui .mode_obj . set_position_mode ( "levels" ) ; 

else 

GUI . ERROR (0 , "word_mode_command" , "Unknown command 1 " 
+words [0] +" 1 " ) ; 



} // end word__mode_command 
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/ * * 

** method words_input 
*/ 

public Node words_input (String [] passed_words , String input_string, int 
num_words) { 

Node note_node=null ; 

// put the string into a note_node without the first word 'input' 

String s = " " ; 

i f ( num_words > 1 ) 

s = passed_words [1] ; 
for (int i=2 ; i<num_words ; i++) 

s = s+" "+passed_words [i] ; 

// check the CN 'Notes' 

if (gui .datasea. Notes == null) { 

gui .datasea. Notes = gui .datasea .pop. create_node ( "Notes" , "AN"); 

// HERE 

//gui .datasea. Notes . isCN = true; 
} 

Node triplet_node = search_f or_possessive (passed_words , note_node f note_node) ; 
// ==> 

if (triplet_node == null) { 

note_node = gui . datasea . pop . create_node (s , "DN"); 

gui. datasea. Notes. link (note_node) ; // link the whole text node to 'Notes' 
check_times (passed_words / gui . datasea . Notes . Name, note_node) ; 
String [] Str2 = discard_words (passed_words) ; 
parse_and_link(Str2 f note^ode, note_node) ; 

} 

return (not e_node) ; 
} // end words_input 



I * * 

** check_times look for time words and link given node to actual time 
referred to 
* * 

*/ 

public void check_times (String [] passed_words , String CNode_name, Node node) { 
int num_words = pas s ed_words . length; 
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for (int i=0; i< num_words; { 
// Search for time words 

if (passed_words [i] . equal slgnoreCase ("yesterday" ) ) { 

gui. tl.createJTS (node, CNode_name, "Mar 11 2000"); 
//System. out .print ( "check_times : linking "Mar 11 2000' (yesterday) to 
< " +node . Name+ " > " ) ; 

} 

else if (passed_words [i] .equals IgnoreCase ("today") ) { 

gui. tl .createJTS (node, CNode_name, "Mar 12 2000"); 
//System. out .print ( "check_times : linking "Mar 12 2000' (today) to 
<"+node.Name+">") ; 

} 

else if ( pas sed_words [i 3 .equals IgnoreCase ("tomorrow" ) ) { 
gui.tl .create_TS (node, CNode_name, "Mar 13 2000"); 
/ /System. out .print ("check_times: linking "Mar 13 2000' (tomorrow) to 
< " +node . Name+ " > " ) ; 

} 

else if (passed_words [i] . equalsIgnoreCase ( ,, 1999 l, ) ) { 
gui . t 1 . create_TS (node , CNode_name , 
ar ray_to_st ring (pas sed_words) ) ; 

//System. out .print ("check_times : checking times for < " +node .Name+" > " ) ; 
} 

else if (passed_words [ij . equalsIgnoreCase ( "2000" ) ) { 
gui . tl . create_TS (node , CNode_name , 
array_t o_st ring (pas sed_words) ) ; 

/ /System. out .print ("check_times: checking times for < " +node . Name+" >" ) ; 

} // end for i 
} // end check_times 

/*★ 

** search_f or_possessive 
** 

*/ 

public Node search_f or_possessive (String [] passed_words , Node central_node, 
Node CNode) { 

int i, index, num_words=0; 

Node child; 

Node ret_node=null ; 

num_words = pas s ed_wor ds . length ; 

// Search for possesive "*s" sign, create AN-DN combination for the possesive 
for (i=0; i<num_words; i++) { 

if (0 < (index = passed_words [i] . indexOf ( " ' s" ) ) ) { 

//ret_val = true; 

GUI . P (1, "search_for_possessive" , "num_words="+num_words+" , i="+i) ; 
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GUI.Pfl, "search^f or_possessive" , "passed_words [i] =" +passed_words [i] ) ; 
if (num_words < (i+1+3) ) { 

GUI . WARNING ( 0 / " search_f or_possessive" , "Too few words") ; 

} else { 

String wordl = passed_words [i] . substring ( 0 , index) ; // BOB's hair 

is red 

String word2 = passed_words [i+l] ; // bob's HAIR is red 
String word3 = passed_words [i+3 ] ; // bob's hair is RED 
String desc = "is"; 

if (passed_words [i+2) . equal slgnoreCase ( "is" ) ) { 

if (num_words>= (i+1+4) ) // see if there are enough words 

to check 

if ( pas sed_words [i+3] . equal slgnoreCase ( "a" ) ) { 
desc = "is a"; // change description 
word3 = passed_words [i+4] ; // correct word3 

} 

} 

// wl <-> w3 <-> w2 

GUI . P (1 , " sear ch_f or_pos se s s ive " , 

" POSSESSIVE : wordl ="+ wordl 

+" <--> word2=" +word2 

+" <--> desc="+desc 

+" <--> word3=" +word3) ; 

ret_node = gui . data sea . pop .triplet (wordl , word3 , word2 ) ; 
/************************************************************** 

context _node . link (gui .data sea . cl (wordl) ) ; 
context_node . link (gui .datasea . cl (word2 ) ) ,- 
context_node . link (gui .datasea . cl (word3 ) ) ; 

Node w2__node=null ; 

if (null I = (w2_node=gui . datasea . f ind_node_named (word2 , " AN" ) ) ) 

w2_node . set_Desc (gui . datasea . f ind_node_named (word3 , "DN" ) , 

desc) ; 

******************* *************★*************************/ 

} 

} 

} 

return (ret__node) ; 

} // end search_f or_pos ses s ive 

I * * 

** parse_and_link 
* * 

*/ 

public void parse_and_link (String [] passed_words , Node central_node , Node 
CNode) { 

int i , num_words ; 

Node child, word_node=null ; 



-169- 



PATENT 



num_words = pas sed_words . length; 

// LINK INDIVIDUAL WORDS TO PASSED CNode 
for (i=0; i< num__words; i++) { 

if (passed_words . equals ("") ) // blank words have been 'discarded* 
previously 

/////////////////////////////////////// 
/////////////////////////////////////// 
else { 

//System. out .print ("par se_and_l ink: linking < " +passed_words [i] +" > to 
<"+central_node .Name+">") ; 

if (null == (word_node=gui .datasea . f ind_node_named (passed_words [i] ) ) ) 

word_node = gui . datasea. pop. creat e_node (passed_words [i] , " DN " ) ; 

central_node . link (word_node) ; 

// cent ral_node . link (word_node, CNode); // this makes the Note node a 

CNode 

//gui . datasea . addCNodeBetweenNodes (central_node , word__node, CNode) ; 

} " 

} // end for i 
} // end parse_and_link 

/*★ 

** is_useless_word 
★ ★ 

*/ 

public boolean is_useless_word (String word) { 
int i, size; 
Node child; 

if (word == null) { 

GUI . WARNING ( 0 , " is_useless_word" , "null word.") ; 
return (true) ; 

} 

String lower_case_word = word . toLowerCase ( ) ; 

if (0 <= gui . datasea .useless_words . indexOf (lower_case_word) ) { 
//System, out .print In ( "Useless : ,r +lower_case_word) ; 
return (true) ; 

} 

else 

return (false) ; 
} // end is_useless_word 
/** 



-170- 



PATENT 



** discard_words clobber useless words 
** 

*/ 

public String [] discard_words (String [] passed_words) { 
int i, j=0, num_words; 
String [ ] ret_words ; 

num_words = passed__words . length ; 

String [] good_words = new String [num_words] ; 

for (i=0; i< num_words; i++) { 

if (is_useless_word(passed_words [i] ) ) { // Search for useless words 

) 

else 

{ 

good__words [ = passed_words [i] ; 

//System. out .print (pas sed_words [i] +" " ) ; 

} 

} // end for i 

// THIS IS STUPID, BUT I WANT TO RETURN AN ARRAY OF ONLY GOOD WORDS 
ret_words = new String [j]; 
for (i=0; i< j ; i+ + ) 

ret_words[ij = good_words [i] ; 
return (ret_words) ; 
} // end discard_words 

j -k * 

** discard_words String input and output version 
* * 

V 

public String discard_words (String s) { 
int i ; 

String [] words = string_to_array (s) ; 

// CALL THE STRING [] VERSION OF OURSELF 
String [] ret_words = discard_words (words) ; 

// REFORMAT BACK TO ORIGINAL FORM 

String ret_string = array_to_string (ret_words) ; // when do we have to say 'new 1 
return (ret_st ring) ; 

} // end string version of discard_words 
/** 

** array_to_string 
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*/ 

public String array_to_string (String [] str_array) { 
int i; 

5 

// PUT BACK INTO STRING 

String ret_string=" n ; // when do we have to say 'new 1 ' 
for (i=0; i<str_array . length; i++) 

ret_string = ret_string+str_array [i] +" " ; 
10 return (ret_string) ; 

} // end array_to_string 



/** 

15 ** array_to_string 

** 

*/ 

public String [] string_to_array (String s) { 
int i ; 

20 

// TOKENIZE 

StringTokenizer st - new StringTokenizer (s, " , . ?<>\"\t\r\n" ), 
int num_words = st . count Tokens ( ) ; 
String [] words = new String [num_words] ; 
2 5 for (i=0; i<num_words; i++) 

words [i] = st .nextTokenO ; 
return (words) ; 
} // end array_to_string 

30 

/** 

** parse_data 
* * 

*/ 

35 public void parse_data (Node node) { 

int i, j, size, num_words=0 , index=0, counter=0; 
Node child; 
String words [] ; 
String line; 

40 

if ( tgui .parse) { 
return; 
} 

45 if (node==null) { 

return; 

} 

if (node .Data==null) { 
return; 
50 } 
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if (node .Data [0] ==null) { 
return; 
} 



for (i = 0; i<Node . MAX__TEXT_DATA__LINES ; i++) { 
line = node .Data [i] ; 
if (line == null) 
break; 



line = gui . eliminate_html (line) ; 

words = string_to_array (discard_words (line) ) ; 

num_ words = words . length; 
for (j = 0; j < num_words; j++) { 

child - gui . datasea . pop . create_node (words [ j 3 , 
//System. out .print In (node .Name+" , " +words [ j ] ) 
node, link (child, 11 ") ; 
} 

} 



return; 

} // end parse_data 



} // end Input 



// This is Populate . java by Rocky Nevin 

import java.util.*; 
import j ava . io . * ; 
import j ava . awt . * ; 

// POPULATING and CREATING NODES 



public class Populate extends Object { 
DataSea datasea; 

static Node lastBBnode; // a bad way, but, nonetheless, used by make_BB() 

static Node AllURLs = null; 

static Node Cluster_Files ; 

static Node Cluster_Web; 

static Node URLs ; 

static Node Cluster_Mail ; 

static Node Cluster_Directory ; 

static Node ClusterJSTotes ; 

static Node Cluster_En; 

static Node TimeLine; 

static Node yesterday_node , today_node, tomorrow_node; 

static Node last_week_node , this_week_node, next_week_node ; 

static int MAX_FILES_PER_DIRECTORY=15 ; 

static int MAX_DIRECT0RY_DEPTH=4 ; 

static int global_counter=0 ; 

static int counter=0; 

static int calls_to_pull=0 ; 

//static int f ile_counter=0 ; 

GetURLInfo url ; 

public Populate (DataSea passed__datasea_obj ) { // Constructor 

datasea = passed_datasea_obj ; 
this.init () ; 

} // end Populate constructor 



public void init () { 

} 

public void populate_begin () { 
GUI .sleep (100) ; 

System, err. println( "Populate .populate_begin ( ) begun. . . 11 ) ; 
//GUI. sleep (100) ; 

pop_initial ( ) ; 

read_in_net_f ile (0) ; 
//GUI. sleep (100) ; 
//GUI. sleep (100) ; 
// popportal () ; 

//GUI. sleep (100) ; 
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popdO ; 
//GUI. sleep (100) ; 

popgeneology ( ) ; 
//GUI. sleep (100) ; 
5 popp ( ) ; 

//GUI. sleep (100) ; 

popTL ( ) ; 
//GUI. sleep (100) ; 

popcalendar ( ) ; 
10 //GUI. sleep (100) ; 

popn() ; 

System, err. print In ( 11 Populate. populate_begin ( ) done.") ; 
} // end populate_begin 

15 



I * * 

** get_file 

20 

*/ 

public void get_file () { 
GetURLInfo url; 

byte byte_array [] =new byte [300] ; 
2 5 int i, index; 

String wl=null # w2=null; 
int max_lines = 700; 
FilelnputStream file; 

try { file = new FilelnputStream (" /usr/people/rocky/x" ) ; } 
catch ( java . io. FileNotFoundException e) 
{ 

GUI .WARNING (0 , "get_f ile" , 11 - >" +e . toString ( ) +" <- "); 
return; 

} 

try { file . read (byte_array) ; } 
catch (java . io. IOExcept ion e) 
{ 

GUI .WARNING (0 , "get_f ile" , 11 ->" +e . toString ()+" <- 11 ) ; 
return; 

} 

System. out .print In ( "byte_array from /usr/people/rocky/x:"); 
System. out .print In (byte_array) ; 

4 5 } //get_file 

/** 

** read_in_net_f ile 
* * 

50 */ 



35 
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public void read_in_net_f ile (int which) { 
GetURLInfo url; 

String str_array [] =new String [0] ; 
int i, index; 

String wl=null, w2=null, name, value; 

int max_lines = 700; 

String FileName = " /README" ; 

if (which == 1) 

FileName = "/README. 1" ; 

else 

if (which == 2) 

FileName = " /README . 2 " ; 

url = new GetURLInfo ( ) ; 

try { str_array = url .get_URL ( "file : "+GUI . GlobalUserDir+FileName, max_lines) ; } 
catch (java.net .Mai formedURLException e) 
{ 

GUI .WARNING (0, "read_in_net_f ile" , " ->"+e . toString { ) +"<- " ) ; 
return; 

} 

catch (IOException e) 
{ 

GUI . WARNING ( 0 , " read_in_net_f ile " , " - >" +e . toString { ) +" <- "); 
return; 

} 

if (str_array == null) { 

GUI . WARNING ( 0 , " read_in_net_f ile " , 11 str_array is null . ") ; 

return; 

} 

DataSea . currentCNode = create_node ( "ThesCN" , "CN"); // Turn on auto-CNode links 

for (i=0; i<max__lines ; i++) { 

if (str_array [i] == null) 
break ; 

if (str_array [i] . length ( ) > 0) 

if (! str_array [i] . substring (0 , 1) . equals ("# 11 ) ) { 

index = str_array [i] . indexOf ( " , " ) ; 
if (index <= 0) 
break ; 

wl = str_array [i] . substring (0 , index) ; 
w2 = str_array [i] . substring (index+2) ; 

//meta subject : sub ject_value 
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if (0<=wl. indexOf ("met a") ) { 

index = wl . indexOf ( 11 : 11 ) ; 
name = wl . substring (5 , index); 
value = wl . substring (index+1) ; 
5 METApair (name , value, w2) ; 

} 

else 

if (0<=wl. indexOf ("http") ) 

if (0<=w2 .indexOf ("http") ) 
10 URLtoURLpair(wl, w2) ; 

else 

URLtoANpair(wl / w2) ; 



15 



20 



else 



ANANpair (wl , w2) 



} // if not '#• 
} // for i 

System. err .println ( " Total lines: "+i) ; 

DataSea . currentCNode = null; // Turn off auto-CNode links 
return; 

} // end get_f ile_input 



25 



/* * 

3 0 * * pul l_in_URLs 

* * 

V 

public void pul l_in_URLs (String base, String name, int current_depth, Node 
parent) { 

3 5 String str_array [] =new String [03; 

String url_name= " UNKNOWN" ; 
S t r ing doma in_name =nu 1 1 ; 
String line; 
int i ; 

4 0 int index=0, end=0, end_space, end_bracket; 

int MAX_CHILDREN = 7-current_depth; 

int MAX_DEPTH =4; // set conditionally below on the OS 

int child_count=0 ; 

Node node=null, cn_node=null ; 

45 

if (current_depth > MAX_DEPTH) { 
return ; 

} 

if (current_depth == 1) 
50 calls_to_pull = 0; 
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if (parent == null) // starting, so link first to a reliable node 
if (null == (parent - datasea . f ind__node_named ( "URLs " ) ) ) { 

(parent = create_node ( "URLs" , "DN" )). link (datasea . Root) ; 

} 

if (AllURLs == null) 

AllURLs = create_node ( "AllURLs" , "DN" ) ; // link all to this one 

if ( (System. get Property ( "os .name" ) ) . equal slgnoreCase ( " Irix" ) ) { 
MAX_DEPTH = 3; 
if (base == null) 

base = "file:/. ./. ./CIM/web/"; 

} 

else { 

MAXJDEPTH = 6; // Using cable-modem on Wintel 
if (base == null) 

base = "file: ./" ; 

} 

if (name == null) 

name = "" ; // just get the files 

if (calls_to_j>ull++ > 30) 
{ 

datasea. gui . P(0, "pull_in_URLs M , "calls_to_pull = "+calls_to_j>ull) ; 
return; 

} 



url_name = base+name; 

//System. err .println("l) STARTING parent ->"+parent .Name+"<- " ) ; 

//System. err. println("l) base is ->"+base+"<- ■ ) ; 

//System. err .println("l) name is - >" +name+" < - " ) ; 

if ( ( 0<=url_name . toLowerCase () . indexOf ("http") ) ! datasea .gui .NetOK) { 

datasea.gui.P(0 / "pull_in_URLs " , 

"Sensed http, and GUI. NetOK is false, so aborting data retrieval for 
"+url_name) ; 

return ; 
} 

i= 1 + url_name . last IndexOf ("/") ; // recalculate the base and the file 

name 

if (i>0) { 

base = url_name . substring (0 , i) ; 
name = url_name , substring ( i) ; 
//System. err .print In (parent .Name+" , "+url_name) ; 

//System. err .print In (" base is ->"+base+"<- , name is - 

>"+name+"< - 11 ) ; 

//System. err .print In (" name is ->"+name+"<- » ) ; 
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10 



} 

url = new GetURLInfoO ; 

try { str_array = url .get_URL(url_name) ; } 
catch (java.net.MalformedURLException e) 

{ 

/ /GUI . WARNING ( 0 , "pull_in_URLS " , 11 - >" +e . toString ( ) +" < - " ) ; 
return; 

} 

catch (IOException e) 
{ 

//GUI .WARNING (0, "pull_in__URLS " , " ->" +e . toString ()+"< - " ) ; 
return; 



if (str_array == null) { 
15 / /GUI . WARNING ( 0 , "pull_in_URLS " , 11 str_array is null."); 

return; 
} 



20 

// Create and link a node for this URL if it doesn't exist already 
if (null == (node = datasea . f ind_node_named (url_name) ) ) { 
node = create_node (url_name, "URL"); 

} 

25 

parent . link (node) ; 

//GUI . P (0 , "pull_in_URLS" , " linking AllURLs to " +node . Name ) ; 
AllURLs . link (node) ; // link all to this one 

30 // 

// figure out the domain name, use as a CN ... 
// 

if (null != (domain_name=datasea.gui . f ind_domain_name (url_name) ) ) { 
if (null == (cn__node = datasea . f ind_node_named (domain_name) ) ) { 
3 5 cn_node = c r e at e_node ( doma in_name , 11 CN " ) ; 

} 

cn_node . link (node) ; 
//AllURLs . link (cn_node) ; 

//GUI . P (0 , ,, pull_in_URLS" , " linking CN "+cn_node . Name) ; 
40 } 
else 

GUI .WARNING (0, "pull_in_URLS" , "Failed to find good domain: domain_name is 
"♦domain name) ; 



45 



node. isSelected = true; 

datasea . gui . show_node_once (node) ; 



for (i=0; i<Node.MAX_TEXT_DATA_LINES; i++) { 
5 0 if (str_array [i] == null) 
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break ; 

node. Data [i] =str_array[i] ; 

//System. out .println ( "Adding to " +node . Name+" : "+str_ array [i] ) 

} 

GUI . input .parse_data (node) ; 

if (child_count > MAX_CH I LDREN ) { 
System . err . print ("."); 
node . isSelected = false; 
return; 

} 

// Now, look for URLs to call 
String new_name=" 11 ; 
++current_depth ; 

if (currerit_depth > MAX^DEPTH) { 
node . isSelected = false; 
return; 
} 

for (i = 0; i < Node . MAX_TEXT_DATA_LINES ; i++) { 
line = str_array [i] ; 
if (line == null) break; 
new_name = dat asea . gui . f ind_URL_name ( 1 ine ) ; 
if (new_name != null) { 

if (0<=new_name . toLowerCase ( ) . indexOf ( "http" ) ) { 

pull_in_URLs ( 11 " , new_name, current_depth, node); 

} 

else { 

pull_in_URLs (base, new_name, current_depth, node); 

} 

> 

} 

node . isSelected = false; 
dat asea .gui .update (1) ; 
} // end pull_in_URLs 



/** 

** pull_in_URLs no argument version 
* * 

*/ 

public void pull_in_URLs () { 

System. err .println (" ============= pull_in_URLs ... Begun 

================================= n) . 

pull_in_URLs ( (String) null, (String) null , 1, (Node)null); 
System. err .println ( "============= pull_in_URLs 

Done. =========================================") ; 

System. err .println ( " size of node_vec is " +datasea . node_vec . size ( ) ) ; 
} // end no arg 1 version of pull_in_URLs 
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** popMyFamily 
* * 

*/ 

public void popMyFamily () { // "show geneology" 
Node grape_node, cereal_node, nuts_node, wheat_node; 
// 

// ANs : grape, cereal, nuts, red, green, wine, wheat, zinfandel, crunchy 

// DNs : Grape Nuts, Wheat Germ, Shredded Wheat, Acacia Zinfandel, Green Grapes, 

Red Grapes, 

// 

// 



Node geneologyCN = create_node ( "geneology" , "AN" ) ; 

triplet ( "Rocky" , "Jane Elinore GEIGER" , "Mother", geneologyCN, "polarized"); 
triplet ( "Rocky" , "Harry Wardlaw Jr. NEVIN" , "Father", geneologyCN, "polarized"); 
triplet ("Jane Elinore GIEGER" , "Elinore Lucille LINGARD" , "Mother", geneologyCN, 
"polarized") ; 

triplet ("Jane Elinore GIEGER", "Charles Towne GEIGER", "Father", geneologyCN, 
"polarized") ; 

triplet ("Harry Wardlaw Jr. NEVIN", "Hazel Miller HAWKINS", "Mother", 
geneologyCN, "polarized") ; 

triplet ("Harry Wardlaw Jr. NEVIN" , "Harry Wardlaw Sr. NEVIN", "Father", 
geneologyCN, "polarized"); 

triplet ("Elinore Lucille LINGARD", "Eliza Jane BAKER", "Mother", geneologyCN, 
"polarized" ) ; 

triplet ( "Elinore Lucille LINGARD", "Amos Lister LINGARD", "Father", geneologyCN, 
"polarized" ) ; 

triplet ("Charles Towne GEIGER", "Grace TIDRICK" , "Mother", geneologyCN, 
"polarized" ) ; 

triplet ( "Charles Towne GEIGER", "Eugene Warfel GEIGER", "Father", geneologyCN, 
"polarized") ; 



triplet ( "Harry Wardlaw Sr. NEVIN", "Lula Wardlaw" , "Mother", geneologyCN, 
"polarized" ) ; 

triplet ( "Harry Wardlaw Sr. NEVIN", "Michael John NEVIN", "Father", geneologyCN, 
"polarized" ) ; 

triplet ( "Hazel Miller HAWKINS", "Janetta A CLOUGH", "Mother", geneologyCN, 
"polarized" ) ; 

triplet ( "Hazel Miller HAWKINS", "George Wicton HAWKINS", "Father", geneologyCN, 
"polarized" ) ; 

Node DirCNode = create_node ( "DirCN" , "CN" ) ; 

triplet ( "Grace TIDRICK", "734 S.Main", "address", DirCNode, "polarized"); 
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return; 

} // end popMy Family 
/*★ 

** popgeneology 
* * 

*/ 

public void popgeneology () { // "show geneology" 
Node grape_node, cereal_node, nuts_node, wheat_node; 
// 

// ANs: grape, cereal, nuts, red, green, wine, wheat, zinfandel, crunchy 

// DNs: Grape Nuts, Wheat Germ, Shredded Wheat, Acacia Zinfandel, Green Grapes, 

Red Grapes, 

// 

// 

Node geneologyCN = create_node ( "geneology " , "AN" ) ; 
Node employmentCN = create_node ( "employment ", "AN" ) ; 
employmentCN. isCN = true; 
geneologyCN. isCN = true; 

Node peopleAN = create__node ( "people" , "AN" ) ; 
DataSea . Root . link (geneologyCN) ; 
DataSea . Root . link (employmentCN) ; 
peopleAN. link (employmentCN, "polarized") ; 
peopleAN. link (geneologyCN, "polarized") ; 

triplet ( "Bob" , "BobsDad", "Father", geneologyCN, "polarized"); 

triplet ( "Bob" , "BobsSon", "Son", geneologyCN, "polarized"); 

triplet ( "BobsSon" , "BobsGrandSon" , "Son", geneologyCN, "polarized") ; 

Node ann_node = create_node ( "Ann" , "DN" ) ; // 

Node ted_node = create_node ( "Ted" , "DN" ) ; // 

triplet ( "Bob" , "Ann", "Wife", geneologyCN, "polarized"); 

triplet ( "Ann" , "Ted", "Father", geneologyCN, "polarized"); 

triplet ( "Ted" , "IBM", "employment", employmentCN, "polarized"); 

popMyFamily ( ) ; 

return; 

} // end popgeneology 

/** 

** popgroc 
** 

*/ 

public void popgroc () { // "show grocery" 

Node grape_node, cereal_node, nuts_node, wheat_node; 

// 

// ANs: grape, cereal, nuts, red, green, wine, wheat, zinfandel, crunchy 
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// DNs : Grape Nuts, Wheat Germ, Shredded Wheat, Acacia Zinfandel, Green Grapes, 

Red Grapes, 

// 

// 

5 

Node grocery = c re at e_node { "grocery" , "DN" ) ; 
DataSea . Root . link (grocery) ; 
grape__node = create__node ( "grape" , "AN" ) ,- // 
grocery .link (grape_node) ; 

1 0 grape_node .link (datasea . cl ( "Grape Nuts" , "DN" ) ) ; 

grape_node . link (datasea . cl ( "Red Grape" , "DN" ) ) ; 
grape_node . link (datasea . cl ( "Green Grape" , "DN" ) ) ; 

wheat__node = create_node ( "wheat " , "AN" ) ; // 
1 5 grocery . link (wheat_node) ; 

wheat_node . link (datasea . cl ( "Wheat Germ" , "DN" ) ) ; 
wheat_node. link (datasea. cl ("White Flour", "DN") ) ; 
wheat_node . link (datasea . cl ( "Shredded Wheat" , "DN" ) ) ; 

2 0 cereal_node = create_node < "cereal ", "AN" ) ; // 

grocery . link (cereal_node) ; 

cereal_node. link (datasea. cl ("Grape Nuts" ,"DN") ) ; 
cereal_node.link(datasea.cl("Shredded Wheat", "DN") ) ; 
cereal_node. link (datasea. cl ("Corn Flakes" , "DN" ) ) ; 

25 



GUI.P(0, "popgroc", "show grocery"); 
return ; 

3 0 } // end popgroc 

/* * 

** popcntl 
* * 

35 */ 

public void popcntl () { // "show cntl" 

Node file_node, edit_node, cntl_node, apps_node, pop__node; 

// cntl - File - Open 

4 0 // - Save 

// - Export 

// - Import - File_l 

// - File_2 

// - File_3 

4 5 // - File_4 

// - Edit - Cut 

// - Copy 

// - Paste 

// - Select All 

5 0 // - Delete 
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cntl_node = create_node ( "Cntl" , "AN" ) ; // created also in popapps 

apps_node = create_node ( "Apps" , "AN" ) ; 

apps_node . link (cntl_node) ; 
5 DataSea.Root . link (cntl_node) ; 

cntl_node. link (datasea.cl ("File" , " DN 11 , "Open" , "DN") ) ; 

cntl_node . link (datasea . cl ( "Edit " , "DN" , "Cut " , "DN" ) ) ; 

f ile_node = datasea . f ind_node_named ( " File" , "DN" ) ; 

edit_node = datasea . f ind_node_named ( "Edit" , "DN" ) ; 
10 file_node. link (datasea.cl ("Import", "DN", "File_l", "DN")) ; 

(datasea. f ind_node_named ( " Import " , "DN" )) . link (datasea . cl ( "File_2" , "DN")) ; 

(datasea. f ind_node_named ( "Import" , "DN")) . link (datasea . cl ( "File_3" , "DN")) ( 

(datasea. find_node_named( "Import", "DN") ) . link (datasea . cl ( " File_4 " , "DN") ) ( 

file_node. link (datasea.cl ("Export", "DN")) ; 
15 file_node. link (datasea.cl ("Save", "DN")) ; 

file_node. link (datasea.cl ("Save As", "DN")); 

edit_node . link (datasea . cl ( "Copy" , "DN" ) ) ; 

edit_node. link (datasea.cl ("Paste" , "DN")) ; 

edit_node. link (datasea.cl ("Select All", "DN")) ; 
2 0 edit_node. link (datasea.cl ("Delete", "DN")) ; 

pop_node = create_node ( "Populate" , "DN") ; 
pop_node . link (create_node ( "popf " , "DN" ) ) ; 
Pop_node . link (create_node ( "popw" , "DN" ) ) ; 

2 5 pop_node . link (cr eat e_node ( "popd" , "DN" ) ) ; 

pop_node . link (create_node ( "popURLs" , "DN" ) ) ; 
pop_node . link (create_node ( "popTL" , "DN" ) ) ; 
pop_node . link (create_node ( "popapps" , "DN" ) ) ; 

3 0 popapps ( ) ; 

GUI.P(0, "popcntl", "show cntl") ; 
return; 

} // end popcntl 



35 



/** 

** popapps 
* * 

40 */ 

public void popapps () { // "show apps" 

Node mail_node, web_node, apps_node, cntl_node; 

// Apps - Mail - Receive 

4 5 // - Send 

// - Cleanup 

// - Include File - Mail_l 

// - Mail_2 

// - Mail_3 

50 // - M *il_4 
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// 
// 
// 
// 
// 



- Web 



Open Browser 
Properties 
Review Bookmarks 



Home 



Blah 



DataSea.currentCNode = create_node ( "AppsCN" , "CN"); // Turn on auto-CNode links 

cntl_node = create_node ( "Cntl" , "AN" ) ; // created also in popmenu 
apps_node - create_node ( "Apps" , "AN" ) ; 
apps_node . link (cntl_node) ; 
DataSea. Root . link (apps_node) ; 

apps_node. link (datasea.cl ( "Mail" , "DN" , "Receive" , "DN" ) ) ; 
apps_node. link (datasea . cl ( " Web", "DN", "Open Browser", "DN") ) ; 
mail_node = create__node ( "Mail " , "DN" ) ; 
web_node = create_node { "Web" , "DN" ) ; 

mail_node. link (datasea.cl ("Include File", "DN", »Mail_l", "DN")); 
(create_node(" Include File", "DN")) . link (datasea . cl ( "Mail_2 " , "DN")); 
(create_node( "Include File", "DN")) . link (datasea . cl ( "Mail_3 " , "DN")); 
(create_node(" Include File", "DN") ) . link (datasea . cl ( "Mail_4 " , "DN") ) ; 
mail_node . link (datasea . cl ( "Cleanup" , "DN" ) ) ; 
mail_node.link(datasea.cl("Save", "DN") ) ; 
mail_node. link (datasea.cl ("Save As", "DN")); 
web_node. link (datasea.cl ("Properties", "DN") ) ; 
web_node. link (datasea.cl ("Review Bookmarks", "DN") ) ; 
web_node . link (datasea . cl ( "Home" , "DN" ) ) ; 
web_node . link (datasea . cl { "Blah" , "DN" ) ) ; 

GUI . P ( 0 , "popapps " , " show popapps 11 ) ; 

DataSea.currentCNode = null; // Turn off auto-CNode links 
return; 

} // end popapps 



** properties 



*/ 

public void properties () { 
Node prop_node; 

GUI.P(0, "properties", "Creating Property nodes ('Props') "); 

prop_node = create_node ( "Props" , "DN" , "From System . getProperty ( ) and 
Toolkit .getDefaultToolkit () .getScreenSize ( ) ") ; 
DataSea . Root . link (prop_node) ; 
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10 



triplet ( 


" Props " , 


triplet ( 


" Props " , 


triplet ( 


"Props" , 


triplet ( 


"Props" , 


triplet ( 


" Props " , 


triplet ( 


"Props" , 


triplet ( 


"Props" , 


triplet ( 


"Props" , 


triplet ( 


" Props " , 


triplet ( 


" Props " , 


triplet ( 


"Props" , 



System.getProperty {" java. version" ) , " JavaVersion" ) ; 
System, get Property ("java. vendor 11 ) , " JavaVendor" ) ; 
System.getProperty ("java. vendor. url") , "JavaVendor URL" ) ; 
System.getProperty ("java. class .version") , " JavaClassVersion" ) ; 
System . get Property ( " os . name " ) , " 0S_Name " ) ; 
System.getProperty ("os. arch" ) , "0S_Arch") ; 
System.getProperty ("file. separator") , "FileSeparator" ) ; 
System.getProperty ("user .name" ) , "UserName" ) ; 
System.getProperty ("user. home" ) , "UserHome") ; 
System.getProperty ("user .dir") , "UserDir" ) ; 

""♦Toolkit .getDefaultToolkit () .getScreenSize ( ) , "ScreenSize" ) ; 



15 



// GUI . GlobalUserDir = System . getProperty ( "user . dir" ) , 
// GUI . GlobalOSName = System . getProperty ( "os . name" ) ; 



} // end properties 
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I * * 

** pop_initial 
** 

*/ 

public void pop_initial () { // "show root" 
Node nl,nll,nl2, n2,n21,n22, n33; 
Node Cntl; 
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GUI . P ( 0 , " pop_ini t ial " , " begun " ) ; 

if (DataSea.node_vec != null) 

DataSea . node_vec . removeAllElements ( ) , 
DataSea . node vec = new Vector ( ) ; 
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GUI . select ed_nodes_vec = new Vector (10) ; 

DataSea. Root = new Node (" Root " , "Layer", "", 0, 50, 10, 10); 



40 



DataSea. The saurus_node = new Node ( "THES" , "AN", " " , 0, 0, 10, 10), 
TimeLine = new Node ( "TL" , "Event", "TimeLine", 

-200, -100, 3, 400); 
//DataSea .Root . link (TimeLine) ; 

// (DataSea. Root .get LinkTo (TimeLine) ) . set LinksVRparms (TimeLine) ; 



45 



50 



Cntl = new Node ( "Cntl " , "AN", "Control", 

-300, 50, 3,3) ; 
Cluster_Files = new Node ( "Files" , "AN", "Files", 

-200, 50, 3,3); 
Cluster_Web = new Node ("Web", "AN", "Web URLs", 

-100, 50, 3,3) ; 
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URLs = new Node ( "URLs" , "CN", " URL CNode"); 

Cluster_Mail = new Node ( "EMail" , "AN", "E-mail", 
0, 0, 3,3); 

Cluster_Directory = new NodeC'Dir", "AN", "Directory", 
0, 0, 3,3); 

Cluster_Notes - new Node ( "Notes" , "AN", "Free-form Notes", 
0, 0, 3,3); 

Cluster_En = new Node ( "Encyclopedia" , "AN", "Encyclopedia Online", 
300, 50, 3,3) ; 

// Cluster_Mail .link( nl=create_node ( "Read-Mail" , "AN")); 

// nl . link ( create_node ( "file : /usr/people/rocky/Back/Code/Mail_DS/ltr- 

1. html", "URL") ) ; 

// nl . link (create_node ( " file : /usr/people/rocky/Back/Code/Mail_DS/ltr- 

2 . html" , "URL") ) ; 

// nl . link ( create_node ( " file : /usr/people/rocky/Back/Code/Mail_DS/ ltr- 

3 -html" , "URL") ) ; 

Cluster_Web . link (create_node ( "http: //www .me tmuseum. org/html file/ f aq/f aq.h 
tml", "URL")); 

DataSea.Root . StopSpread = true; // caught by recursive routines, block 
spreading 

URLs . StopSpread = true; 
Cluster_Web . StopSpread = true; 
Cluster_Mail . StopSpread = true; 
Cluster_Notes . StopSpread = true; 
Cluster_En. StopSpread = true; 
Cntl .StopSpread - true; 
TimeLine . StopSpread = true; 

DataSea.Root . link (DataSea . Thesaurus_node) ; 
DataSea . Root . link (Cluster_Files) ; 
DataSea . Root . link (Cluster_Web) ; 

DataSea.Root . link (Cluster_Mail) ; 

DataSea .Root . link (Cluster_Notes) ; 

DataSea .Root . link (Cluster_Directory) ; 

DataSea.Root . link (Cluster_En) ; 

DataSea.Root . link (Cntl) ; 

DataSea . Root . setLinksVRparmsTo (Cluster_Files) ; 

//(DataSea. Root. getLinkTo (Cluster_Files) ) . setLinksVRparms (Cluster_Files) ; 
(DataSea. Root. getLinkTo (Cluster_Web) ) . setLinksVRparms (Cluster_Web) ; 
(DataSea.Root .getLinkTo (Cluster_Mail) ) . setLinksVRparms (Cluster_Mail) ; 
(DataSea.Root .getLinkTo (Cluster^Directory) ) . setLinksVRparms (Cluster_Direc 

tory) ; 

(DataSea.Root .getLinkTo (Cluster_Notes) ) . setLinksVRparms (C lust er_Notes) ; 
(DataSea.Root .getLinkTo (Cluster_En) ) . setLinksVRparms (Cluster_En) ; 
/****************************************** 
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Cntl. link (datasea. cl("Cmds", "AN" , "", 0, 10)); 
Cntl. link (datasea.cl ("Graphics", "AN", "», 20, 30)); 
Cntl. link (datasea.cl ("Thresh", "AN" , "", 40, 50)); 
Cntl. link (datasea.cl ("demos", "AN", "", 60, 70)); 
Cntl. link (datasea . cl ( "Cmds" , "AN", "", 80, 80)); 
★***********************************************/ 

nl = new Node (" name " , "AN"); 

nil = new Node ( "Rocky 11 , "DN", "This is a test Node, named 'Rocky'"); 
nl. link (nil) ; 

nl2= new Node ("Bob", "DN") ; 
nl.link(nl2) ; 

triplet ( "CommitteeX" , "Bob", "Member"); 

datasea. needdistUpdate = true; 
GUI . P (0 , "pop_initial" , " done . " ) ; 
} // end pop_initial 

/** 

* * pop_synonyms 
** 

*/ 

public void pop_synonyms () { // "show piano" 

GUI . input . string_input ( " input piano : syn : klavier " ) ; 
GUI . input . string_input ( " input phone : syn : telephone " ) ; 
GUI . P ( 0 , " pop_synonyms " , " show piano " ) ; 

} // end pop_synonyms 
J * * 

** semi Populate Semiconductor fab 

* * 

*/ 

public void popSemi () { // skip 
Node Semi, t_node; 

/**************************★********************* 
Semi = 

(DataSea. Root .link (datasea.cl ("Semiconductor" , "AN" , "" , 0, 0) ) . link (datasea . cl ( "Sem 
iConductor Mfg", "AN", "",0,0))); 

Semi.link(datasea.cl("Semi Process", "AN", "",0,0) ) ; 

t_node = Semi. link (datasea.cl ("www.semi.com", "DN", "URL", 0,0) ) ; 

t_node = Semi.link(datasea.cl("URL-A","DN","URL",0,0)) ; 

t node = Semi. link (datasea. cl ( "URL-B", "DN", "URL", 0,0) ) ; 
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t_node - Semi . link (datasea . cl ( 11 URL- C" , "DN" , "URL" ,0,0)) ; 
t_node = Semi. link (datasea. cl ("PhD The sis" , " DN " , " URL ",0,0)) ; 
t_node . link (datasea . f ind_node_named ( "URL -A" ) ) ; 
t_node . link (datasea . f ind_node_named ( "URL-B" ) ) ; 
t_node . link (datasea . f ind_node_named ( "URL-C" ) ) ; 
t_node . link (datasea . f ind_node_named ( "www. semi . com" ) ) ; 

(datasea . f ind_node_named ( "URL- A" ) ) . link (datasea . f ind_node_named ( "Semi 
Process" ) ) ; 

**********************************************/ 
}// end popSemi 



** popDM Populate Data Mining 



public void popDM () { // skip 
Node DM, tnode; 
int i ; 

GUI . P (0, "DM" , "DataMining Run." ); 

/******************************************************* 
// Master node 

DM = DataSea. Root. link (datasea. cl ("DM", "AN", "DataMining" , -20,20) ) , 
// Gender node 

tnode = DM. link (datasea. cl ("Gender", "AN", "Stats" , -40 , 30) ) ; 

tnode. link (datasea. cl ("Male", "DN" , "Stats", -10,10) ) ; 
tnode. link (datasea. cl ("Female" , "DN" , "Stats" ,10,10)); 

// Dept node 

tnode = DM. link (datasea. cl ( "Dept" , "AN", " Stats" , -20 , 30) ) ; 

tnode. link (datasea. cl ( "Sports" , "DN" , " " , -10 , 10 ) ) ; 
tnode. link (datasea. cl ("Clothing", "DN" , "",0,10) ) ; 
tnode . link (datasea . cl ( "Appliances" , "DN" , "",10,10)); 

// Season node 

tnode = DM.link(datasea.cl("Season", "AN", "Stats" , 0 , 30) ) ; 
tnode. link(datasea.cl("Fall", "DN" , "",-10,10) ) ; 
tnode. link (datasea. cl ("Winter" , "DN" , "",10,10)); 
tnode . link (datasea . cl ( "Spring" , "DN" , "",-10,10)); 
tnode . link (datasea . cl ( "Summer" , "DN" , "",10,10)); 

// Cost node 

tnode = DM.link(datasea.cl("Cost", "AN", "Stats" , 20 , 30) ) ; 
tnode . link (datasea . cl ( " <10 " , "DN" , "",-20,10)); 
tnode. link(datasea.cl{"<1000", "DN", "", -10,10) ) ; 
tnode.link(datasea.cl("<10000", "DN" , "",0,10) ) ; 
tnode. link (datasea. cl (">10000" , "DN" , "",10,10) ) ; 

tnode = datasea . f ind_node_named ( "Male " ) ; 
for (i=0 ; i<5 ; i++) 

create_DM_DN("Male", "Sports", "Summer", "<100"); 
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create_DM_DN("Male" , "Sports", "Spring", "<1000") ; 
create_DM_DN("Male" , "Appliances", "Fall", "<10000"); 
create__DM_DN( "Male" , "Sports", "Summer", "<1000"); 

for (i=0; i<5; i + + ) 

create_DM_DN(" Female", "Clothes", "Fall", "<1000") ; 
create_DM_DN ( "Female" , "Clothes", "Summer", "<100"); 
create_DM_DN (" Female " , "Appliances", "Summer", "<1000") ; 
create_DM_DN( "Female", "Appliances", "Winter", "<10000") ; 
**★************★*★**********************************/ 

}// end popDM 



/** 

** create_DM_DN 
******************************************************** 

public void create_DM_DN (String gender, String dept, String season, String cost) 
{ // skip 

Node gender_node, .dn; 

gender_node = datasea . f ind_node_named (gender) ; 
if (gender_node != null) { 

dn = gender_node. link (datasea. cl ( " "+global_counter++, "DN") ) ; 

dn. link (dept) ; dn . link (season) ; dn . link (cost ) ; 

} 

} // end create_DM_DN 

**********************************************/ 



/ * * 

** con Populate Econ 



public void popEcon () { // skip 
Node Econ_node, t_node; 

/*********************************************** 
GUI . P (0 , "con" , "Economist Run . " ) ; 
Econ_node = 

(DataSea.Root .link (datasea. cl ("ECON" , "AN" , "Text" ,0,0)) . link (datasea . cl ( "Economis 
t This Week", "AN", "Text " , 0 , 10) ) ) ; 

t_node = Econ__node . link (datasea . cl ( "ENTER NATO" , "AN" , "Text" , 0, 20) ) ; 

(t_node. link (datasea. cl ( "NATO troops occupied KOSOVO after )" 

+"Serb troops had agreed to withdraw, but found that a contingent 

of " 
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+" Russian soldiers had reached the airport 
first . " , "Text" , "Text" ,0,30)) . link (datasea . cl ( "NATO" , "AN") ) ; 

(t_node=t_node. link (datasea.cl ("Despite some clashes between KLA fighters 
and Serbs , ) ) " 

+"and between NATO soldiers and Serbs, NATO's takeover was 
largely peaceful. " , "Text" , "Text" , 120,30) ) . link (datasea . cl ( "KLA" , "AN") ) ) ; 
t_node . link (datasea . f ind_node_named ( "NATO" ) ) ; 

***************************************/ 
}// end popEcon 

/** 

* * popURLs 
** 

*/ 

public void popURLs () { // "show URLs" 
Node URLO, URL1, URL2, URL3 ; 

URLO = c reate_node(" URL :MSU- Bo zeman Welcome" , "URL"); 
URLO. Data [0] = ""; 

URLO. Data [1] = " Welcome to Montana State University at Bozeman!"; 
URLO. Data [2] « " "; 

URLO. Data [3] = "Below you will find topics of interest."; 
URLO. Data [4 3 ■ 11 "; 

URLO. Data [5] = "For enrollment information for Spring 2001, wait here."; 
URLO. Data [6] = " "; 

URL0.Data[7] = "- William Blake Archive " ; 
URLO. Data [8] - 11 - Contact Student Services"; 
URLO. Data [9] = "- Search Faculty/Staff Directory"; 

URL1 = create_node ("URL: Net scape: Directories" , "URL"); 
URLl.Data[0] = "The area code for all Montana locations is 406. " ; 
URLl.Data[l] = "The MSU- Bozeman campus operator can be reached at 11 ; 
URLl.Data[2] = " (406)994-0211. "; 

URLl.Data[3] = " "; 

URLl.Data[4] = "Montana State University " ; 
URLl.Data[5] = " "; 

URLl.Data[6] = "Montana State University-Bozeman 11 ; 
URLl.Data[7] = " - Faculty/Staff Directory "; 
URLl.Data[8] = "- Student Directory "; 
URLl.Data[9] = "- Department Mailing Addresses " ; 

URL2 = cr eat e_node ("URL: MSU- Bozeman Faculty/Staff Directory ", "URL"); 
URL2 . link (datasea . f ind_node_named ( "Dir" ) ) ; 
URL2.Data[0] = " " ; 

URL2.Data[l] = " The faculty/staff directory is arranged alphabetically by last 
name . " ; 

URL2.Data[2] = " 



-191- 



PATENT 



URL2.Data[3] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ » ; 
URL2.Data[4] * "Choose a letter and then utilize the search capability of your 



10 



15 



20 



URL2 .Data [5] 

URL2.Data[6] 

URL2.Data[7] 

URL2.Data[8] 

Asper . " ; 

URL2.Data[9] 



"browser to locate specific individuals within the directory ",- 
"section. "; 

rr m . 

"Please send any directory additions or corrections to Barb 
"This directory was last updated July 27, 1999. "; 



25 



URL3 = create_node ( "URL : MSU-Bozeman Faculty/Staff Directory (M) " , "URL"), 

URL3 . link (datasea . f ind_node_named ( "Dir " ) ) ; 

URL3 . link (datasea . f ind_node_named ( "address" ) ) ; 

URL 3 . link (datasea . f ind_node_named ( "phone" ) ) ; 

URL 3 . link (datasea . f ind_node_named ( "email" ) ) ; 

URL3.Data[0] = "MSU-Bozeman Faculty/Staff Directory"; 

URL3.Data[l] = "MILLER, JOHN 278-7707"; 

URL3.Data[2] = " RES ASSOC, AES-WEST TRI AG RES"; 

URL3 . Dat a [ 3 ] = " j pmOnervana . mont ana . edu " ; 

URL3.Data[4] = "MILLER, JOHN 994-7332"; 

URL3.Data[5] = " DIRECTOR- PHD, COMPUTATIONL BIOLOGY, AJ 29"; 
URL3.Data[6] = " jpm@nervana.montana.edu"; 
URL3.Data[7] = "MILLER, KATHERINE 994-5067"; 

URL3.Data[8] = " GRADUATE STUDENT, ENTOMOLOGY DEPARTMENT, LJ 415"; 
URL3.Data[9] = " klmiller@montana.edu"; 
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URLO . link (datasea . f ind_node_named ( "Web" ) ) ; 
URLl.link(URLO) ; 
URL2 . link (URL1) ; 
URL3.1ink(URL2) ; 

URL3. link (triplet ("Miller", " (406)994-7332", "phone") ) ; 
triplet ( "Miller" , "jpm@nervana.montana.edu", "email") ; 
triplet ("Miller" , "123 Donnegal Dr, Bozeman, MT" , "address" ) ; 
(datasea. find node named ( "Miller ")). link (datasea . find node named (" name " ) ) , 
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URL 2 = create_node ( "URL : The William Blake Archive", "URL"); 
URL2.Data[0] = "»; 

URL2.Data[l] = " Known Hazards and Most Favorable Conditions of the Archive 
URL2.Data[2] = » "; 

URL2.Data[3] = " Graphical Help Screens (click icon for full-sized image):"; 
URL2.Data[4] = ""; 
URL2.Data[5] 
URL2 .Data [6] 
URL2 .Data [7] 
URL2.Data[8] 
URL2 .Data [9] 



"Help Table of Contents"; 
" - The Archive and the Web . 
"- Basic DynaWeb Navigation 
"- - Table of Contents"; 
11 - - - Collection Index"; 



50 



URL2 .link (URLO) ; 

(create_node ( "Blake" , "DN" ) ) . link (datasea . cl ( "name" 



"AN") ) ; 
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URL 2 . link (datasea . f ind_node_named ( "Blake" ) ) ; 

GUI.P(0, "popURLs", "show web") ; 
return; 

} // end popURLs 
/★ * 

** popt Populate time samples, 1,2,3 etc linked to dates, themselves linked 
to TimeLine 
* * 

*/ 

public void popt () { 

int x, y, i, size_X, size_Y; 

GUI . P (0, "popt" , "time nodes Starting."); 

popTL ( ) ; 

datasea. gui . tl .createJTS (create_node { "dayl" , "Event"), null, "Jan 1 

1999"); 

datasea. gui . tl . createJTS (create_node ( "day2 " , "Event"), null, "Feb 2 

1999") ; 

datasea. gui .tl . create_TS (create_node ("day3" , "Event"), null, "Mar 3 

1999"); 

datasea. gui .tl .createJTS (create_node ("day4" , "Event"), null, "Apr 4 

1999") ; 

datasea. gui. tl .create_TS (create_node ( "day5 " , "Event"), null, "May 5 

1999") ; 

datasea. gui. tl .create_TS (create_node ( "day6 " , "Event"), null, "Jun 6 

1999") ; 

datasea. gui. tl .create_TS (create_node ("day7" , "Event"), null, "Jul 7 

2000") ; 

datasea. gui .tl .create_TS (create_node ( "day8 " , "Event"), null, "Aug 8 

2000") ; 

datasea. gui. tl . createJTS (create_node ( "day9" , "Event"), null, "Sep 9 

2000") ; 

datasea. gui. tl .createJTS (create_node ( "daylO" , "Event"), null, "Oct 10 

2000") ; 

datasea. gui. tl . createJTS (create_node ( "dayll" , "Event"), null, "Nov 11 

2000") ; 

datasea. gui .tl .createJTS (create_node ("dayl2" , "Event"), null, "Dec 12 

20 00") ; 

GUI . P (0 , "popt" , "time nodes Done . " ) ; 
} // end popt 
/* ★ 

** popTL Populate TimeLine 
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*/ 

public void popTL 0 { // "show TL" 
int x, y, i, size_Y, size_X; 

int delta_x = 2; // offset from today_node, next_week, etc. to TL 

GUI . P (0 , "L" , "TimeLine Run. " ) ; 
// For demostration purposes, 

// just code 'today', 'next-week', etc, as hard-coded dates 

//y=10; 
size_X=l ; 

si ze_Y= (int) (TimeLine . size_Y * 0.3); 
//x= (int) (TimeLine . size_Y * 0.01); 

yesterday_node = new Node ( "Yesterday " , "Event", "Yesterday"); 

Node tn = datasea.gui . tl . create_TS (yes terday_node, null, "May 21 2000"); 

yesterday_node . Y = tn.Y - 15; 

yesterday_node .X = TimeLine. X - delta_x; 

ye s t e r day_node . s i z e_Y = 3 ; 

yesterday_node . size_X = 1 ; 

today_node = new Node (" Today " , "Event", "Today"); 

tn = datasea.gui .tl .cr eat eJTS (today_node, null, "May 22 2000"); 

today__node . Y = tn.Y; 

today_node.X = TimeLine. X - delta_x; 
today_node . size_Y = 3 ; 
today_node . size_X = 1; 

tomorrow_node = new Node ( "Tomorrow" , "Event", "Tomorrow"); 

tn = datasea.gui. tl.create_TS (tomorrow_node, null, "May 23 2000"); 

tomorrow_node . Y = tn.Y + 15; 

tomorrow_node .X = TimeLine. X - delta_x; 

tomorrow_node. size_Y = 3; 

tomorrow_node . size_X = 1; 

last_week_node = new Node ( "LastWeek" , "Event", " last_week" ) ; 

datasea.gui. tl . create_TS (las t_week_node, null, "May 2 2000"); 

datasea.gui.tl.create_TS(last_week_node, null, "May 3 2000"); 

datasea.gui . tl . createJTS (las t_week_node, null, "May 4 2000"); 

datasea.gui . tl . create_TS (last_week_node, null, "May 5 2000"); 

tn = datasea.gui .tl .create_TS (las t_week_node, null, "Mar 6 2000"); 

last_week_node . Y = tn.Y-60; 

last_week_node.X = TimeLine. X - 2*delta_x; 

last_week_node . size_Y = 3 0 ; 

last_week_node . size_X = 1; 

datasea.gui. tl .createJTS (last_week_node, null, "May 7 2000"); 
datasea.gui .tl . create_TS (las t_week_node, null, "May 8 2000"); 
datasea.gui.tl.create_TS(last_week_node, null, "May 9 2000"); 



-194- 



PATENT 



this_week_node = new Node ( "ThisWeek" , "Event", "this_week" ) , 

dat asea. gui. 1 1. creat e JTS (this_week_node, null, "May 22 2000") 
5 dat asea. gui. tl. create JTS (this_week_node, null, "May 23 2000") 

datasea.gui . tl .createJTS (this_week_node, null, "May 24 2000"), 
datasea.gui . tl .create_TS (this_week_node, null, "May 25 2000"). 
tn ■ datasea.gui. tl .create_TS (this_week_node, null, "May 14 2000") , 
this_week_node . Y = tn.Y; 
10 this_week_node .X « TimeLine.X - 2*delta_x; 

thi s_week__node . s i z e_Y = 30; 
this_week_node . size_X = 1; 

datasea.gui. tl.createJTS (this_week_node , null, "May 26 2000"); 
datasea.gui. tl .createJTS (this_week_node, null, "May 27 2000"); 
15 datasea.gui .tl .createJTS (this_week__node , null, "May 28 2000"); 



next_week_node = new Node ( "NextWeek" , "Event", "next_week") ; 



20 



25 



30 



datasea . gui . tl . createJTS (next_ 
datasea . gui . tl . createJTS (next_ 
datasea . gui . tl . create_TS (next 
datasea . gui . tl . create_TS (next 
tn = datasea .gui . tl . createJTS 
next_week_node . Y = tn.Y + 60; 
next_week_node . X = TimeLine . X 
next_week_node . s i z e_Y = 30; 
next_week_node . size_X = 1 ; 
datasea . gui . tl . createJTS (next 
datasea . gui . tl . createJTS (next 
datasea . gui . tl . createJTS (next 



_week_node, null , "May 2 9 2000") 
_week_node, null, "May 30 2000") 
_week_node, null, "May 31 2000") ; 
_week_node , nul 1 , " Jun 1 2000"); 
(next_week_node, null, "Mar 22 2000"), 

- 2*delta_x; 



_week_node, null, "Jun 2 2 000"); 
_week__node , nul 1 , " Jun 3 2 0 0 0 11 ) ; 
week_node, null, "Jun 4 2 000"); 



35 
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tl . create_ 
tl . create_ 
tl . create_ 
tl . create_ 
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tl . create_ 
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2000") 
2000") 
2000") 
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45 



GUI . P ( 0 , " popTL " , " show TL " ) ; 

return; 

} // end TL 



50 
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** popcalendar 
* * 

*/ 

public void popcalendar () { 
5 int i, size; 

Node child; 

GUI . input . st ring_input ( "input Open House Sue&Fred Jan 1 2000"); 
GUI . input . st ring_input ( "input Bay Photo pickup Jan 3 2000"); 
10 GUI . input . string_input ( "input Bay Photo pickup Feb 3 2000"); 

GUI . input . string_input ( "input Custom Process Photo pickup Mar 30 2000"); 
GUI . input . string_input ( "input Bay Photo pickup Apr 23 2000"); 
GUI . input . string_input (" input Darkroom 1 3 -5pm Jan 15 2000"); 

GUI. input. string_input ("input ASUC Photo exhibit reception 6-7pm Mar 24 2000"); 
15 GUI . input . string_input ("input SOMArts exhibit reception 5-7pm Apr 6 2000"); 

GUI . input . string_input ("input Tara & Gary BA 5:45pm Jan 7 2000"); 

GUI . input . string_input ( "input Rozalina Party 8pm Jan 14 2000"); 

GUI . input . string_input (" input Lauren 2pm photo shoot Jan 20 2000"); 

GUI . input . string_input ( "input Lauren 1:30pm photo shoot Feb 8 2000"); 
2 0 GUI . input . string_input ( "input Dinner with Erin 7pm Mar 2 2000"); 

GUI .input . string_input ("input Cal ' Bach Society concert 9pm St Marks Mar 4 

2000") ; 

GUI. input. string_input ("input Watt's master class SF Conservatory 11:30am Mar 6 
2000") ; 

2 5 GUI . input . string_input ("input SFEMS Concert 8pm Mar 11 2000"); 

GUI . input .string_input ("input SF FA Museum Floral exhibit Mar 14 2000"); 

GUI . input . string_input ("input Sherman-Clay piano sale, UCB 1pm Mar 16 2000"); 

GUI . input . string_input ( "input Dinner with Erin 7pm Apr 9 2000"); 

3 0 } // en <* popcalendar 



** calendar 

35 

*/ 

public void calendar () { 
int i,j / day=0; 
Node cal_node, tnode; 

40 

cal_node = new Node ( "cal" , 11 DN " , "Calendar", 0, 0, 200,150); 
cal_node . set_mag (0.5) ; 
//cal_node.TinyScale = 0.1; 
cal_node. link (Time Line) ; 
45 datasea. set_child_position (TimeLine, cal_node, 0, -300); 

for (i=l; i<6; i++) 

for (j=l; j<8; j++) { 
if (++day > 31) 
5 0 break; 



-196- 



PATENT 



tnode = new Node ( " " +day , "DN" , "Day", 0, 0, 30,20); 
tnode . link (cal_node) ; 
tnode . set_mag (0.9) ; 

datasea. set_child_jposition (cal_node, tnode, ( (double) (j )) /8 . 0 , 
0.1+ ( (double) (5-i) ) /5.0) ; 
} 

GUI.P(0, "popcalendar" , "show cal"); 
} // end calendar 



/* 
** 

*/ 

public void add_directory_entry (String input_string) { 

Node name=null, address=null , phone-null, other=null, email=null; 

Node Directory, name_an_node , address_an_node / phone_an_node , email_an_node; 

int num_words, i; 

String words []; 

Node DirCNode = create_node ( "DirCN" , "CN n ) ; 

Node MailDirCNode = create_node ( "MailDirCN" , "CN" ) ; 

StringTokenizer t = new StringTokenizer (input_string, 11 ,.<>\"\t\r\n" ) 
num_words = t . count Tokens ( ) ; 
words = new String [num_words] ; 
for(i =0; i < num_words; i++) 

words [i] = t .next Token () ; 

Directory = datasea . find_node_named ( "Dir" ) ; 
if (Directory==null) { 

Directory = new Node ( "Dir" , "AN" , " » ) ; 

DataSea. Root . link (Directory, "polarized") ; 

GUI . P (1, "add_directory_entry" , " Creating Directory, linking it to 
DataSea . Root " ) ; 

} 

name_an_node = datasea . f ind_node_named ( "name " ) ; 
i f ( name_an_node = =nu 1 1 ) { 

name_an_node - new Node ( "name" , "AN" , " " ) ; 

} 

Directory . link (name_an_node, DirCNode, "polarized"); 

addre s s_an_node = dat a sea . f ind_node_named ( " addre s s " ) ; 
if (address_an_node==null) { 

addre ss_an_node = new Node ( "address" , "AN" , " " ) ; 

} 

Directory . link (addre ss_an_node, DirCNode, "polarized"); 



phone_an_node = dat a sea . f ind_node_named ( " phone 11 ) ; 

i f (phone_an_node--nul 1 ) { 

phone_an__node = new Node ( "phone" , "AN" , " " ) ; 

//Node telephone_an__node - new Node ( "telephone" , "AN" , " 

//telephone__an_node . link (phone_an_node) ; 

} 

Directory . link (phone_an_node, DirCNode, "polarized"); 

email_an_node = dat a sea . f ind_node_named ( " email " ) ; 
if (email_an_node==null) { 

email_an_node = new Node ( "email" , "AN" , " ") ; 

} 

//Directory . link (email_an_node, MailDirCNode, "polarized"); 

if (num_words >= 1) { 

name = datasea . f ind_node_named (words [0] ) ; 
if (name==null) 

name=new Node (words [0] , "DN", "name"); 
name_an_node . link (name, "polarized") ; 
//name_an_node . link (name , DirCNode , "polarized" ) ; 

} 

if (num_words >= 2) { 

phone = datasea. find_node_named( words [1] ) ; 
if ( phone ==null) 

phone =new Node (words [1] , "DN", "phone"); 
phone_an_node . link (phone, "polarized" ) ; 
//phone_an_node . link (phone, DirCNode, "polarized" ) ; 

} 

if (num_words >= 3) { 

address = datasea . find_node_named (words [2} ) ; 
if (address— null) 

address=new Node (words [2] , "DN", "address"); 
address_an_node . link (address, "polarized") ; 
//address_an_node . link (address, DirCNode, "polarized") 

} 

if (num_words >= 4) { 

email = datasea. find_node_named (words [3] ) ; 
if (email==null) 

email=new Node (words [3] , "DN" , "email"); 
email_an_node. link (email, MailDirCNode, "polarized") ; 

} 

name . link (phone, DirCNode, "unpolarized" ) ; 
name . link (address, DirCNode, "unpolarized"); 
name. link (email, DirCNode, "unpolarized"); 



datasea . gui . show_node_once (name) ; 
datasea. gui . show_node_once (phone) ; 
datasea .gui . show_node_once (address) ; 
datasea .gui . show_node_once (email) ; 
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//datasea. set_CSs_of_DirCNode (DirCNode, 10) ; 
//datasea. set_CSs_of_DirCNode (MailDirCNode, 30) ; 

} // end add_directory_entry 



/** 

** DIRECTORY 
★ * 

*/ 

public void popd () { // "show Dir" 
Node tn; 

add_directory_entry ("Abe 111-1111 llll_Abner abe@aol.com"); 
add_directory_entry ("Bob 222-2222 2222_Broadway bob@aol.com"); 
add_directory_entry ("Carl 333-3333 1234_Claremont carl@aol.com") 
add_directory_entry ("Dave 444-4444 1234_Denison dave@aol.com"); 
add_directory_entry ( "Evan 555-5555 1234_Edgar evan@aol.com"); 
add_directory_entry ("Frank 666-6666 1234_Fairway frank@aol.com") 
add_directory_entry ("Rocky 888-8888 1234_Campus rocky@tallis.com 



datasea. needdistUpdate = true; 

GUI . P (0, "popd" , "show Dir or Bob"); 

return ; 

} // end popd 



J -it * 

** popportal 
* * 

**************************************************************** 
public void popportal () { // "show Yahoo" 
Node nl, n2 , n3, n4 , n5, n6, n7, n8 ; 

System. err .print In ("Populate. portal () begun") ; 

Node Yahoo - c r eat e_node ( "Yahoo" , "AN" ) ; 
ANpair ( "Yahoo" , "Animal " ) ; 
ANpair ("Animal" , "FoodAnimals" ) ; 
ANpair ( "FoodAnimals" , "Poultry" ) ; 
ANpair ("FoodAnimals" , "Cattle") ; 
ANpair ( "Animal" , "Reproduction" ) ; 
ANpair ( "Reproduction" , "Egg" ) ; 
ANpair ( "Egg" , "EggTempera" ) ; 
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ANpair ( "Egg" , "Reproduction" ) ; 

ANpair ( "Egg" , "Poultry" ) ; 

ANpair ( "Animal" , "Reproduction") ; 

ANpair ( "EggTemper a" , "ETRecipes") ; 

ANpair ( "EggTempera" , "Longevity" ) ; 

ANpair ("EggTempera" , "Longevity") ; 

ANpair ( "EggTempera" , "OldMaster_Techniques" ) ; 

ANpair ( "EggTempera" , "Techniques" ) ; 

ANpair ("EggTempera" , "ArtMedia") ; 

ANpair ( "Animal " , "Morphology" ) ; 

ANpair ("Morphology" , "Skeletal") ; 

ANpair ( "Morphology" , "Circulation" ) ; 

ANpair ( "Morphology" , "Skin" ) ; 

ANpair ( "Morphology" , "Morphology" ) ; 

ANpair ("Yahoo" , "Art") ; 

ANpair ("Art" , "ArtMaterials" ) ; 

ANpair ( "Art " , " ArtHistory" ) ; 

ANpair ("Art" , "Artists") ; 

ANpair ("Art", "Painting") ; 

ANpair ( "Animal " , "Environment" ) ; 

ANpair ( "ArtMaterials" , "ArtMedia" ) ; 

ANpair ("Painting" , "Frescoe") ; 

ANpair ( "Painting" , "OilPaintings" ) ; 

ANpair ("Painting" , "WaterColors" ) ; 

ANpair ("Frescoe" , "EggTempera" ) ; 

ANDNpair ("Poultry" , "EggProduction" ) ; 
ANDNpair ( "Egg" , "EggProduction" ) ; 

ANDNpair ( "ArtMedia" , " Artmedia&Frescoe" ) ; 
ANDNpair ("Frescoe", "Artmedia&Frescoe" ) ; 

ANDNpair ( "EggTempera" , "ET&Frescoe" ) ; 
ANDNpair ("Frescoe" , "ET&Frescoe" ) ; 

ANDNpair ( "OilPaintings" , "OldMasterPaintings" ) 
ANDNpair ("Frescoe" , "OldMasterPaintings") ; 

ANDNpair ("Egg" , "Egg&Skin") ; 
ANDNpair ("Skin" , "Egg&Skin") ; 

ANDNpair ( "Morphology" , "Skin&Morph" ) ; 
ANDNpair ( " Skin" , "Skin&Morph" ) ; 

ANDNpair ( "Reproduction" , "Egglncubation" ) ; 
ANDNpair ( "Egg" , "Egglncubation" ) ; 
ANDNpair ("Egg" , "EggNutrition" ) ; 
ANDNpair ("FoodAnimals" , "EggNutrition" ) ; 
ANDNpair ( "Poultry" , "EggNutrition" ) ; 
ANDNpair ("Reproduction" , "LiveBirth") ; 



ANDNpair ( "Animal " , " Animal &Morph" ) ; 
ANDNpair ( "Morphology" , "Animal &Morph" ) ; 



//////////////////////// search result node linked to 100 URLS 
//////////////////////// group of 100 URLs 
//////////////////////// ANs distal 
//////////////////////// 

//////////////////////// user selects ANs , samples URLS, adds more search terms 
+/- 

//////////////////////// 

GUI . P ( 0 , "popportal " , " show Yahoo" ) ; 

popmany ( ) ; 

System . err . println ( " Populate . portal ( ) done . " ) ; 
System. err .println(" Populate. portal () Yahoo ="+Yahoo) ; 
} // end popportal 



/* * 

** popmany like popportal, but with more links to each DN 
** 

public void popmany () { // "show Yahoo" 

Node nl, n2, n3, n4, n5, n6, n7, n8; 
// Node Art, Art Materials, Frescoe, EggTempera 01dMaster_Techniques ; 
// Node Egg, Animal, Reproduction, Morphology, Circulation, Skeletal, Skin; 

Node Yahoo = create__node ( "xYahoo" , "AN" ) ; 

Node Egg = create_node ( "xEgg" , "AN"); 

Node Animal = create_node ( "xAnimal " , "AN"); 

Node Reproduction = create_node ( "xReproduction" , "AN"); 

Node Morphology = create_node ( "xMorphology" , "AN"); 

Node Circulation = create_node ( "xCirculation" , "AN"); 

Node Skeletal = create_node ( "xSkeletal" , "AN"); 

Node Skin = create_node ( "xSkin" , "AN") ; 

Node Art = create_node ( "xArt" , "AN"); 

Node ArtMaterials = create_node ( "xArtMaterials" , "AN"); 

Node Frescoe = create_node ( "xFrescoe" , "AN"); 

Node EggTempera = create_node ( "xEggTempera" , "AN"); 

Node OldMasterJTechniques = create_node ( "xOldMasterJTechniques" , "AN" ) ; 

Node ArtMedia = create_node ( "xArtMedia" , "AN" ); 

Node Recipes = create_node ( "xRecipes" , "AN") ; 

Node Longevity = create_node { "xLongevity 11 , "AN"); 

Node Techniques = create_node ( "xTechniques" , "AN"); 

Node Environment = create_node ( "xEnvironment " , "AN") ; 

Node LiveBirth = create_node ( "xLiveBirth" , "AN"); 
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Node Poultry = create_node ( "xPoultry" , "AN"); 

Node ArtHistory = create_node ( "xArtHi story " , "AN"); 

Node Artists = create_node ( "xArtists" , "AN") ,- 

5 Yahoo. link (Animal, "polarized"); 

Yahoo. link (Art, "polarized") ; 

Egg. link<EggTempera, "polarized") ; 

Egg. link (Reproduction, "polarized") ; 

Egg. link (Poultry, "polarized") ; 
10 Animal. link {Reproduction, "polarized"); 

Animal . link (Environment , "polarized" ) ; 

Animal . link (Morphology, "polarized" ) ; 

EggTempera. link (Recipes, "polarized") ; 

EggTempera. link (Longevity, "polarized") ; 
15 EggTempera. link (01dMaster_Techniques, "polarized"); 

EggTempera. link (Techniques, "polarized") ; 

EggTempera . link (ArtMedia, "polarized" ) ; 

Morphology . link (Skeletal, "polarized") ; 

Morphology . link (Circulation, "polarized") ; 
20 Morphology . link (Skin, "polarized"); 

Reproduction, link (LiveBirth, "polarized") ; 

Art .link (ArtMaterials , "polarized" ) ; 

Art . link (ArtHistory, "polarized" ) ; 

Art . link (Artists, "polarized") ; 
25 ArtMaterials. link (ArtMedia, "polarized"); 

Frescoe . link (EggTempera, "polarized") ; 



//////////////////////// search result node linked to 100 URLS 
3 0 //////////////////////// group of 100 URLs 

//////////////////////// ANs distal 
//////////////////////// 

//////////////////////// user selects ANs, samples URLS, adds more search terms 
+/- 

3 5 //////////////////////// 

int counter=0; 

Node dn - create_node ( "xArtmedia&Frescoe" , "DN" ) ; 
ArtMedia. link (dn) ; 

4 0 Frescoe. link (dn) ; 

Art .link (dn) ; 
EggTempera . link (dn) ; 

dn = create_node ( "xET&Frescoe" , "DN") ; 
4 5 ArtMedia. link (dn, "polarized"); 

Frescoe . link (dn, "polarized" ) ; 
Art . link (dn, "polarized" ) ; 
EggTempera . link (dn, "polarized" ) ; 

50 dn = create_node{"xEgg&Skin", "DN"); 
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Egg. link (dn, "polarized"); 
Skin . link (dn, "polarized"); 
LiveBirth . link (dn, "polarized" ) ; 
Reproduction. link (dn, "polarized") ; 

dn = create_node ( "xSkin&Morph" , "DN"); 
Morphology .link (dn, "polarized") ; 
Skin.link(dn, "polarized"); 

dn = create_node ( "xAnimal&Morph" , "DN"); 
Animal . link (dn, "polarized"); 
Morphology . link (dn, "polarized") ; 
Environment . link (dn, "polarized" ) ; 
Reproduction. link (dn, "polarized") ; 

GUI . P ( 0 , " popmany " , " show xYahoo " ) ; 

} // end popmany 

***********************************************/ 



/** 

** popframe Christmas-tree frame for other data to attach to 
* ★ 

*/ 

public void popframe () { // "show nl" 

Node nl, n2 , n3 , n4 , n5 , n6 , n7, n8 ; 
//String type = "BB" ; 
String type = "DN" ; 

nl = create_node ("nl" , type) ; 

nl.X=40; 

nl.Y=50; 

dat asea. Root . link (nl) ; 

/////////////////// VERTICAL PIECES 
n2 = create_node ("n2" , type) ; 
n2 . link (nl) ; 

n2 .X=0; 

n2.Y = 75; 
n3 = create__node ( "n3 " , type) ; 
n3 . link (n2) ; 

n3 .X=0; 

n3.Y -- 75; 
/////////////////// 

/////////////////// HORIZONTAL PIECES 
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n4 = create_node ( r, n4 " , type) ; 
n4 . Iink(n3) ; 

n4.X=50; 

n4.Y = -25; 
n5 = create_node ("n5" , type); 
n5 . Iink(n3) ; 

n5.X=-50; 

n5.Y = -25; 
n6 = create_node ("n6" . type); 
n6 .link(n2) ; 

n6 .X-50; 

n6.Y = -25; 
n7 = create_node ("n7" , type); 
n7 . Iink(n2) ; 

n7.X=~50; 

n7.Y = -25; 

GUI.P(0, "popframe" , "show nl"); 
return; 

} // end popframe 



/** 
* * popp 
** 

** creates mail,url and note, links them to lastweek, yesterday and 

today 
*/ 

public void popp () { 
int i, size; 
Node child; 

// Mary's EMAIL about printer 

Node mail = email ("Mary EMAIL I really like HP Printer 5MP " ) ; 
datasea.gui.tl.create_TS (mail, null, "Jul 3 2000"); 

// Bob's NOTE about printer ' A 1 in Joe Baker's Office 

Node n = GUI . input . string_input ( " input Bob said it would be $300 to fix Joe 
Baker Printer named 'A' " ) ; 

// URL advertisement for HP printer 

Node url_node = create_node ( "Ad for HP Printer 5MP", "URL"); 
url_node.Desc="HP Advertisement" ; 

url_node . link (datasea . f ind_node_named ( " Printer" ) ) ; 
url_node . link (datasea . f ind_node_named ( " 5MP" ) ) ; 
url_node . link (datasea . f ind_node_named ( "HP" ) ) ; 
// url_node . link (datasea . f ind_node_named ( "Yesterday" ) ) ; 
datasea. gui. tl.create_TS (url_node, null, "Jul 9 2000"); 
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//popppO ; 

return; 

} // end popp 

/** 

* * poppp 

* * 

*/ 

public void poppp () { 
int i, size; 
Node child; 

// Blah EMAIL 

email ("Bob EMAIL This is an interesting day, my cat is happy"); 
email ("Bob EMAIL Yesterday is an interesting day, my dog is happy"); 
email ("Bob EMAIL Tomorrow is an interesting day, my parrot is happy"); 
email ("Bob EMAIL LastWeek was an interesting week, my cougar is happy"); 

// Blah URL 

Node url_node = create_node ( "kjkajdf kjasdf kjasdkf " , "URL" ) ; 
url_node.Desc="URL Blah blah"; 

url_node . link (data sea . f ind_node_named ( "blah" ) ) ; 
// Blah URL 

url_node = create_node ( "kjksa asdkjasf kasf" , "URL"); 
url_node.Desc="URL akjasdkf kasdf lasfd something " ; 
url_node . link (datasea . f ind_node_named ( "LastWeek" ) ) ; 

// Blah URL 

url_node = create_node ( "ak jkska 1 aslas dfs ", 11 URL " ) ; 
url_node.Desc="URL xxkk asdkf asdjfas"; 
url_node . link (datasea . f ind_node_named ( "xxkk " ) ) ; 
url_node . link (datasea . f ind_node_named ( "Tomorrow" ) ) ; 

// Blah Notes . . . 

GUI . input . st ring_input ( "input Abe believes in flying saucers. Jan 5 1999"); 
GUI .input . string_input ("input Abe thinks of nothing . Feb 10 1999"); 
GUI . input . st ring_input ( "input Bob says everything. Mar 20 1999"); 
GUI . input . string__input ( " input Bob drives a car . Jan 2 5 2000" ) ; 
GUI . input . string_input ( "input Carl does nothing. Mar 30 2000"); 

return; 

} // end poppp 



/** 
** email 
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10 



*/ 

public Node email (String input _st ring) { 
int i # size; 
Node child; 

String ind i vidua l_word; 

Node email_node = c r eat e_node ( "email" ) ; 
Node mail = create_node { input _st ring, "DN" ); 

String usef ul_string = datasea . gui . input . discard_words ( input_string) 
StringTokenizer t = new StringTokenizer (usef ul_string, " " ) ; 
int num_words = t . count Tokens ( ) ; 

15 ford = 0; i < num_words; i++) { 

individual_word = t . next Token ( ) ; 

mail . link (create_node ( individual_word, "DN" ) ) ; 

} 

2 0 return (mail ) ; 

} // end email 



25 



30 



I * * 

* * popnet 

* * 

*/ 

public void popnet () { 
int i, size; 
Node child; 



pull_in_URLs ("http :/ /www. paintedeggs.com/ , " eggs2 .html", 3, (Node)null) ; 
pull_in_URLs ("http: //www. alvr.com/" , "eggs/ emainpage .html" , 3, (Node)null) ; 
/************★************************ 

pull_in_URLs ("http: //www. eggtempera. com/ 11 , "faq.html" , 1, (Node)null) ; 
35 pull_in_URLs ("http: //netvet .wustl .edu/" , "birds.htm", 1, (Node)null); 

pull_in_URLs ("http://www.berkeley.edu/" , "index.html", 1, (Node)null); 

*************************************/ 

/************************************* 

pull_in_URLs ( "http: //www. eggtempera. com/" , "welcome .html" , 1, (Node)null) ; 
40 pull_in_URLs ("http://www.eggtempera.com/" , "stpoptions.html" , X, (Node)null); 

pull_in_URLs ( "http: //www. eggtempera. com/" , "about society .html" , 1, (Node)null) ; 

pull_in_URLs(" http: //www. eggtempera. com/", "aboutet.html" , 1, (Node)null); 

pull_in_URLs ("http: //www. eggtempera. com/" , "history .html" , 1, (Node)null) ; 

pull_in_URLs ("http: //www. eggtempera. com/ 11 , "publications.html" , 1, (Node)null) ; 
45 pull_in_URLs ("http://www.eggtempera.com/" , "instructors .html" , 1, (Node)null); 

pull_in_URLs ( "http: //www. eggtempera. com/" , "materials .html" , 1, (Node)null) ; 

pull_in_URLs ("http: //www. eggtempera. com/" , "guestbook.html" , 1, (Node)null) ; 

pull_in_URLs ( "http://www.eggtempera.com/", "links.html" , 1, (Node)null); 

pull_in__URLs ("http: //www. eggtempera. com/" , "intro.html" , 1, (Node)null) ; 
50 **★**********★*************★*********/ 
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} // end popnet 

5 /** 

** popweb sample of web history 
** 

*/ 

public void popweb () { // "show WebHi story" 
10 Node 1, m; 

int counter = 0; 
int counter_delta=2 ; 

1 = create_node("WebHistory" , "DN" ) ; 
15 l.X=20; 

1 . Y=counter-=counter_delta; 
datasea . Root . 1 ink ( 1 ) ; 

1 .link (datasea . f ind_node_named ( "Web" ) ) ; 

2 0 m = create_node(" Search :EggTempera», "DN"); 

ra.X=20; 

m . Y=counter- =counter_delta ; 
l.link(m) ; 

25 Node nl = cr eat e_node ( "http : //www. eggtempera.com/we lcome.html " , "URL"); 

Node n2 - create_node ( "http : //www . eggtempera . com/ stpopt ions .html " , "URL"); 

Node n3 = create_node ( "http : //www. eggtempera. com/ about society .html" , "URL"); 

Node n4 = create_node ("http: //www. eggtempera. com/ aboutet.html", "URL"); 

Node n5 = create_node ( "http : //www. eggtempera. com/history .html" , "URL"); 
30 Node n6 = create_node ( "http : //www . eggtempera. com/ publications .html " , "URL"); 

Node n7 = create_node ("http: //www. eggtempera. com/ instructors .html" , "URL") ; 

Node n8 = create_node ( "http : //www . eggtempera . com/ faq . html " , "URL"); 

Node n9 = create_node ( "http : //www . eggtempera . com/materials . html 11 , "URL"); 

Node nlO = create_node ("http: //www. eggtempera. com/gue stbook.html » , "URL") ; 
35 Node nil = create_node( "http: //www. eggtempera. com/links. html", "URL" ) ; 

Node nl2 = create_node ( "http : //www. eggtempera. com/ int ro .html" , "URL"); 

m. link (nl) ; 

nl . Iink(n2) 
4 0 n2.1ink(n3) 

n3 .link(n4) 

n4 . link (n5) 

n5 . Iink(n6) 

n6 . Iink(n7) 
4 5 n7.1ink(n8) 

n8 . Iink(n9) 

n9.1ink(nl0) ; 

nlO .link (nil) ; 

nil. link (nl2) ; 

50 
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n5 . link (datasea . f ind_node_named ( "x5 " ) ) ; 
n7 . link (datasea . f ind_node_named ("x7") ) ; 

nl .X=0 ; nl . Y=counter--counter_delta; 
n2 .X=0; n2 . Y=counter--counter_delta ; 
n3 .X=0; n3 . Y=counter-=counter_delta; 
n4 .X=0; n4 . Y=counter--counter_delta; 
n5 .X=0; n5 . Y= count er-= count er_de It a; 
n6 .X=0; n6 . Y=counter- =counter_delta; 
n7 .X=0 ; nl . Y=counter-=counter_delta; 
n8 .X=0; n8 . Y=counter-=counter_delta ; 
n9 .X=0 ; n9 .Y=counter- -count er_delta; 
nlO .X=0; nlO . Y=counter-=counter_delta; 
nil .X=0 ; nil .Y=counter~=counter_delta; 
nl2 .X=0; nl2 .Y=counter-=counter_delta; 

Node cn = create_node ( "WebSession. 1" , "CN") 

cn. link (nl) ; 

cn. link (n2) ; 

cn. link (n3) ; 

cn. link (n4) ; 

cn . link (n5) ; 

cn. link (n6) ; 

cn. link (n7) ; 

cn. link (n8) ; 

cn. Iink(n9) ; 

cn. link (nlO) ; 

cn. link (nil) ; 

cn. Iink(nl2) ; 

//cn . link (datasea . f ind_node_named { "today" ) ) 
GUI . P (0 , "popweb" , "show WebHi story" ) ; 
return; 

} // end popweb 



I ** 

* * poprev 

* * 

*/ 

public void poprev () { 
int i, size; 
Node child; 

Node ruth = create_node ( "Ruth" ) ; 
Node Al = create_node ( "Al" ) ; 
Node A2 = create_node ( "A2") ; 
Node A3 = create_node ( "A3 " ) ; 



-208 



PATENT 



Node A4 = create_node("A4") ; 

Node target = create_node ( "target ") ; 

Node Bl = create node ( "Bl") ; 



10 



ruth. link (Al) ; 
Al.link(A2) 
A2. link (A3) 
A3 .link (A4) , 
A4 . link (target) ; 
ruth. link (Bl) ; 
Bl.link(A4) ; 



15 



A3 - A4 - target 



// ruth - Al - A2 

// \~B1 / 

// set_Tdist_start (ruth, target) 
// 

// 1-2-3-4-5- 
// \ 2 / 



should order them thus : 



20 



} // end pop rev 



25 



/* * 

* * popegg 

* * 

*/ 

public void popegg () { 
int i, size; 
Node child; 



30 



35 



40 



pull_ 
pull_ 
pull_ 
pull, 
pull. 
Pull. 
pull_ 
pull. 
Pull, 
pull, 
pull, 
pull. 



in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in_URLs 
in URLs 



( "http 
("http 
("http 
("http 
("http 
("http 
("http 
("http 
("http 
("http 
("http 
("http 



//www. egg temper a. com/" , "welcome .html" , 1, (Node)null); 
//www.eggtempera. com/" , "stpopt ions .html" , 1, (Node)null); 
//www.eggtempera. com/" , "aboutsociety.html" , 1, (Node)null), 
//www, eggtempera.com/", "aboutet.html" , 1, (Node)null) ; 
//www. eggtempera . com/" , "history .html" , 1, (Node)null); 
//www. eggtempera.com/", "publications.html", 1, (Node)null), 
//www.eggtempera. com/" , "instructors .html" , 1, (Node)null); 
//www. eggtempera . com/ "," faq. html" , 1, (Node)null); 
//www. eggtempera . com/" , "materials . html" , 1, (Node)null); 
//www. eggtempera.com/" , "guestbook.html" , 1, (Node)null); 
//www.eggtempera. com/" , "links .html" , 1, (Node)null); 
//www.eggtempera. com/" , "intro.html" , 1, (Node)null); 



45 



} // end popegg 



/** 

** popBB BackBone network 

50 
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*/ 

public void popBB () { // "show Lessons" 
Node 1 , m , pr ior , x , y , z , book_node ; 
int counter = -30; 
int counterfeit a - 3 ; 

Node CN1 = new Node ( "BackBoneCN" , "CN"); 

1 = c r eat e_node ("Lessons" , "DN"); 

1 .Y=counter+=10; 

l.X=20; 

datasea. Root. 1 ink (1) ; 

1. 1 ink (make_BB(" start", "Lessonl") ) ; 
prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=20 ; 
make_BB ( "add" , "ChapterJL" ) ; 

prior = lastBBnode; 
CN1 . link (prior) ; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=20 ; 
make_BB ( "add" , "Chapter_2 " ) ; 

prior. link (book_node = c r eat e_node ( "Some Bookl" 

CN1. link (prior) ; 

x=create_node ( "xl " , "DN" ) ; 

y=create_node ("yl" , "DN") ; 

z=create_node("zl" , "DN") ; 

book_node . link (x) ; 

x. link (y) ; 

y.link(z) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=20 ; 
make_BB ( " add" , " Chapt er_3 » ) ; 

prior .link (book_node = create_node ( "Some Book2" 

CN1 . link (prior) ; 

x=create_node ( "x2 " , "DN" ) ; 

y=create_node ( "y" , "DN" ) ; 

z=create_node("z2" , "DN") ; 

book_node . link (x) ; 

x. link (y) ; 

y . 1 ink ( z ) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode .X=20; 
make_BB ( "add" , "Chapter_4 " ) ; 

prior .link (book_node = create_node ( " Some Book3" 
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CNl . link (prior) ; 
x=create_node ( "x3 » , "DN" ) 
y=create_node ( "y3 » , "DN" ) 
z=create__node ( 11 z3 " ,"DN"), 
5 book_node . 1 ink ( x ) ; 

x. link (y) ; 
y . link (z) ; 
prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
1 0 lastBBnode . X=2 0 ; 

make_BB ( " add" , " Chapter_5 " ) ; 

prior . link (book_node = create_node ( "Some Book4 " , "DN" ) ) 

CNl . link (prior) ; 

x=create_node ( "x4 " , "DN" ) , 
15 y=create_node ("y4" , "DN") 

z=create_node ( " z4 11 , "DN" ) 

book_node . link (x) ; 

x. link (y) ; 

y . link (z) ; 
2 0 prior - lastBBnode; 

lastBBnode.Y = count er+= count er_delt a; 

lastBBnode . X=20 ; 
make_BB ( "add" , "Chapter_6 " ) ; 

prior . link (book_node = create_node ( "Some Books " , 11 DN " ) ) ; 

2 5 CNl . link (prior) ; 

x=create_node("x5", "DN") , 
y-create_node ("y5" , "DN") 
z=create_node ( " z5 11 , "DN" ) 
book_node . link (x) ; 

3 0 x.link(y) ; 

y . 1 ink ( z ) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode.X=20 ; 

3 5 make_BB ( "add" , "Chapter_7" ) ; 

prior . link (book_node = create_node ( "Some Book6 " , "DN" ) ) , 
CNl . link (prior) ; 
x=create_node ("x6" , "DN") , 
y=create_node("y6" , "DN") 

4 0 z=create_node ( " z6 " , "DN" ) 

book_node . link (x) ; 

x. link (y) ; 

y.link(z) ; 

prior = lastBBnode; 
4 5 lastBBnode.Y = counter+=counter_delta; 

lastBBnode . X=20 ; 
make_BB ( "add" , "Chapter_8 » ) ; 

prior .link (book_node = cr eat e_node ( "Some Book7", "DN")); 

CNl . link (prior) ; 
50 x=create node ( "x7" , "DN" ) ; 
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y=create_node ( "y7 " , " DN " ) ; 
z=create_node("z7", "DN") ; 
book_node . link (x) ; 
x. link (y) ; 
5 y.link(z); 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode .X=20; 
make_BB ( "add" , "Chapter_9" ) ; 

1 0 prior . link (book_node = create_node ( "Some Book8" , 11 DN " ) ) ; 

CN1 . link (prior) ; 
x=create_node ( "x8 " , 11 DN 11 ) ; 
y=create_node ( u y8 " , "DN" ) ; 
z=create_node("z8" , "DN") ; 
15 book_node . link (x) ; 

x.link(y) ; 
y.link(z) ; 

lastBBnode . link (book_node = create_node { "Some Book 9 " , 11 DN " ) ) ; 
lastBBnode.Y = counter+=counter_delta; 

2 0 lastBBnode . X=20 ; 



Node CN2 = new Node ( "BackBoneCN" , "CN"); 
1. 1 ink (make_BB(" start", "Lesson2") ) ; 

2 5 prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=2 0 ; 
make_BB ( "add" , M xChapter_l " ) ; 

prior = lastBBnode; 

3 0 lastBBnode.Y = count er+=counter_delta; 

lastBBnode . X=20 ; 
make_BB ( "add" , "xChapter_2 » ) ; 

prior . link (book_node = create_node_f orced ( "Another Bookl" , "DN" ) ) 

CN2 .link (prior) ; 
35 x=create_node_f orced ( "xxl " , "DN") , 

y=create_node_f orced ( "yyl " , "DN" ) 

z =cr eat e_node_f orced ("zzl" , "DN" ) 

book_node . link (x) ; 

x. link(y) ; 
40 y.link(z) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=2 0 ; 
make_BB ( "add" , "xChapter_3 " ) ; 

4 5 prior . link (book_node = create_node_f orced ( "Another Book2 " , "DN" ) ) 

CN2 . link (prior) ; 

x=create_node_f orced ( "xx2" , "DN" ) ; 
y=create_node_f orced ( "yy " , "DN" ) ; 
z=create_node_forced("zz2", "DN") ; 

5 0 book node . link (x) ; 
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x. link (y) ; 
y . link (z) ; 
prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode. X=20; 
make_BB ( "add" , "xChapter_4 " ) ; 

prior .link (book_node = create_node_f or ced ( "Another Book3", 
CN2 .link (prior) ; 

x=create_node_forced("xx3" , " DN " ) ; 

y=create_node_f orced ( "yy3 » , " DN" ) ; 

z =create_node_f orced ( "zz3" , "DN") ; 

book_node . link (x) ; 

x. link (y) ; 

y . link (z) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode. X=20; 
make_BB ( " add" , "xChapter_5 " ) ; 

prior. link (book_node = create_node_f orced ( "Another Book4" 
CN2. link (prior) ; 

x=create_node_f orced ( "xx4 » , "DN" ) ; 

y=create_node_f orced ( "yy4 " , "DN" ) ; 

z =create_node_f orced ("zz4", "DN") ; 

book_node . link (x) ; 

x.link(y) ; 

y.link(z) ; 

prior = lastBBnode; 

lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=20 ; 
make_BB ( "add" , "xChapter_6 " ) ; 

prior. link (book_node = create_node_f orced ( "Another Books " 
CN2 . link (prior) ; 

x=create_node_f orced ( "xx5 " , "DN" ) ; 

y=create_node_f orced ( "yy5 11 , "DN" ) ; 

z=create_node_forced("zz5" , "DN") ; 

book_node . link (x) ; 

x.link(y) ; 

y . 1 ink ( z ) ; 

prior = lastBBnode; 

lastBBnode.Y = count er+= count er_delta; 
lastBBnode . X=20 ; 
make_BB ( "add" , "xChapter_7 » ) ; 

prior. link (book_node = create_node_f orced ( "Another Book6' 
CN2 . link (prior) ; 

x=create_node_f orced ( "xx6 " , "DN" ) ; 
y=creat e_node_f orced ("yy6" , "DN" ) ; 
z=create_node_f orced ( " zz6 " , "DN" ) ; 
book_node . link (x) ; 
x. link (y) ; 
y . link (z) ; 
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prior = lastBBnode; 

lastBBnode.Y = count er+= count er_de It a; 
lastBBnode . X=20 ; 
make_BB ( » add" , » xChapt er_8 " ) ; 

prior . link (book_node = create_node_f orced ( "Another Book7 " , "DN" ) ) ; 
CN2 . link (prior) ; 

x=create_node_f orced ( "xx7" , "DN" ) ; 

y-create_node_forced( "yy7" , "DN") ; 

z=create_node_f orced ( "zz7" , "DN") ; 

book_node .link (x) ; 

x. link (y) ; 

y . 1 ink ( z ) ; 

prior = lastBBnode; 

lastBBnode.Y ■ counter+=counter_delta; 
lastBBnode . X=2 0 ; 
make_BB ( "add" , "xChapter_9" ) ; 

prior . link (book_node o create_node_f orced ( "Another Book8 " , "DN" ) ) ; 
CN2 . link (prior) ; 

x=create_node_f orced ( "xx8 11 , "DN" ) ; 
y=create_node_f orced ( "yy8 " , "DN" ) ; 
z=create_node_f orced ( " zz8 " , "DN" ) ; 
book_node .link (x) ; 
x. link (y) ; 
y . 1 ink ( z ) ; 

lastBBnode . link (book_node = create_node_f orced ( "Another Book9", "DN")); 
lastBBnode.Y = counter+=counter_delta; 
lastBBnode . X=2 0 ; 

GUI.P(0, "popBB" # "show Lessons"); 
} // end popBB 



** pops SIMILAR NODES 
★ * 

*/ 

public void pops () { // "show egg -tempera" 
Node node_sim; 

Node et, gt, si, f, food, acrylics, oils; 
Node AP, PT, E, RP, RI; 

GUI . P (0, " " , " late similarities, e.g. Egg-Tempera "); 
// node_sim=create_node ( "sim" , "AN", ""); 

et=create_node ( "Egg -Temper a" , "DN" , " " ) ; 
gt=create_node ( "GlazingJTechniques" , "DN" , " ") ; 
si=create_node ( "Secular_Images" , "DN" , " " ) ; 
f=create_node ( "Frescoes" , "DN" , ""); 
food=create_node("food", "DN", "") ; 
acrylics=create_node ( "acrylics" , "DN", ""); 
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oilss=create_node ( "oils" , "DN" , " " ) ; 

AP=create_node ( "Art_Practice" ( "AN", " " ) ; 
PT=create_node ( " Paint ingJTechniques" , "AN" , " " ) ; 
E=create_node ( "Eggs" , "AN", " " ) ; 

RP-create_node ( "Renaissance -Paint ings" , "AN", " " ) ; 
RI=create_node { "Religious_Images" , "AN", ""); 

AP.link(et) ; 
PT.link(et) ; 
E. link(et) ; 
RP.link(et) ; 
Rl.link(et) ; 

AP.link(gt) ; 
PT.link(gt) ; 
AP.link(f) ; 
PT.link(f ) ; 
AP . link (acrylics) ; 
PT. link (acrylics) ; 
AP. link (oils) ; 
PT. link (oils) ; 
E. link (food) ; 
RP. link (si) ; 
RP. link(f ) ; 
RI.link(f ) ; 

datasea.needdistUpdate = true; 

GUI . P (0 , "pops" , " show egg -tempera" ) ; 

return; 

} // end (SIMILAR NODES) 
/** 

** popm MAIL 
** 

*/ 

public void popm () { // "show email" 
int i ; 

Node email, read, unread; 
DataSea.currentCNode = create_node ( "MailCN" , "CN"); // Turn on auto-CNode links 

email ("Hi Abe, this is email written about dogs."); 
email ("Dear Mary, How's the project going?"); 
email ("Bob: please turn in your budget for next year."); 
email ("Carl : don't forget to close the door."); 

DataSea.currentCNode = null; // Turn off auto-CNode links 
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datasea .needdistUpdate = true; 
GUI . P ( 0 , "popm" , " show email " ) ; 
return; 

} // end (pop -email) 



/** 

** get_node_f rom_f ile_suf f ix 
* * 

*/ 

public Node get_node_f rom_f ile_suf f ix (String file_name) { 

int index ; 

Node ret_f ile=null; 

/************************************************************* 

Node Programming - create_node ( "Programming" , "AN" ) ; 

Programming . link (JAVA) ; 

Programming . link (CLASS) ; 

Node Text = create_node ( "Text " , "AN"); 

Text .link (DOC) ; 

Text .link (TXT) ; 

Node Images = create_node ( 11 Images" , "AN" ); 
Images . link (JPG) ; 
Images . link (PS) ; 

*****************************************************************/ 



if (0 <= (index = f ile_name . toLowerCase ( ) . indexOf ( 11 . java" ) ) ) { 
ret_file = c r eat e_node ( "JAVA" , "CN"); 
} 

else 

if (0 <= (index = file_name . toLowerCase (). indexOf (". class" )) ) { 
ret_file = create_node ( "CLASS" , "CN"); 
} 

else 

if (0 <= (index = f ile_name . toLowerCase (). indexOf (". jpg" )) ) { 
ret_file = create_node ( "JPG" , "CN"); 
} 

else 

if (0 <= (index = f ile_name . toLowerCase (). indexOf ( 11 . ps ")) ) { 
ret_file = create_node ("PS" , "CN"); 
} 

else 

if (0 <= (index = f ile_name . toLowerCase (). indexOf (". doc" )) ) { 
ret_file = create_node ( "DOC" , "CN"); 
) 

else 

if (0 <= (index = f ile_name . toLowerCase (). indexOf (". txt ")) ) { 



ret_file = create_node ( "TXT" , "CN") ,- 
} 

else 

if (0 <= (index = f ile_name . toLowerCase ( ) . indexOf ( " . html " ) ) ) { 
ret_file = create_node ( "HTML" , "CN"); 
} 

else 

if (0 <= (index = f ile_name . toLowerCase ( ) . indexOf ( " .gif " ) ) ) { 
ret_file = create_node ( "GIF" , " CN " ) ; 
} 

else 

if (0 <= (index = f ile_name . toLowerCase ()- indexOf ( 11 . c" )) ) { 
ret_file = create__node ( "C" , "CN") ; 
} 

return (ret_file) ; 

} // end get_node_f rom_f ile_suf f ix 



/* * 

** popf FILES 
* * 

*/ 

public void popf () { // "show Files or Files" 
Node f ile_node=null; 

create_f ile_tree ( (File) null , 0 ) ; 

f ile_node = data sea . f ind_node_named ( "Files " ) ; 
datasea. clean (file_node) ; 

GUI.P(0, "popf", "show Files or Files 11 ); 
return; 

} // end popf 



/* * 

** create_f ile_tree 
** 

*/ 

public Node create_f ile_tree (File this_file f int current_depth) 
int i, raax_length, index=0 ; 
String list [) , tName, path; 
File tFile; 

// user_dir_f ile=null; //user_dir_f ile is used temporarily only 

char separator; 

long mod, this_f ile_mod; 

Node this_f ile_node, tFile^ode, FilesNode=null ; 
boolean starting = false; 
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if (current_depth > MAX_DIRECTORY_DEPTH) // limit the depth of recursion 
return ( (Node) null) ; 

FilesNode = cr eat e_node ( "Files" , "AN"); 

if (this_file == null) { // if starting, link to DataSea.Root 
starting = true; 

GUI . P (0, "create_f ile_tree" , "starting on user. home 
< " +GUI . GlobalUserHomeDir+ " > " ) ; 

this_file = new File (GUI . GlobalUserHomeDir) ; // Start from 

UserDir, 

try { 

path = this_f ile . getCanonicalPath ( ) ; 

GUI.P(0, "create_f ile_tree" , "getCanonicalPath () ="+path) ; 

} 

catch (lOException e) { 

GUI . P (0 , "create_f ile_tree" , "getCanonicalPath () : "+e) ; 
> 

} 

this_f ile_node = create_node_f orced (this_f ile . getName ( ) , "DN" , " M ) ; // force 
creation 

this_f ile_node. isFile = true; 

this_f ile_mod = this_f ile . lastModif ied ( ) ; 
separator = this_f ile . separatorChar ; 
path = this_f ile.getPathO ; 



/******************************************************** 
GUI.P(0, "create_f ile_tree" , "path=" +path) ; 

GUI.P(0, "create_f ile_tree" , "pathSeparator=" +this_f ile . pathSeparator) ; 

"separator="+this_f ile. separator) ; 
"Name="+this_f ile .getName () ) ; 
"Parent = "+this_f ile .getParent () ) ; 
"isDirectory="+this_f ile. isDirectory () ) ; 



GUI . P (0, "create_f ile_tree" , 
GUI.P(0, "create_file_tree , \ 
GUI.P(0 # "create_file_tree" , 
GUI . P (0 , "create_file_tree" , 
GUI . P (0 , "create_f ile_tree" , "=========================== 

*******************************************************/ 



= ") 



if (this_f ile . isDirectory ( ) ) { 

t hi s_f ile_node . isDi rectory = true; 

GUI. P (0 , "create_f ile_tree»\ "this File <" +this_f ile . getName ()+" > is a 
directory. " ) ; 

list = this_f ile. list () ; 
if (list == null) { 

GUI .WARNING (0, "create_fil e_tree" , " list is null, returning."); 
return ( (Node) null) ; 

} 
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max_length = (list. length > MAX_FILES_PER_DIRECTORY) ? 
(MAX_FILES_PER_DIRECTORY) : < list . length) ; 

for (i=0; i< max_length; i++) { 

tName = path + separator + list [i] ; 
tFile = new File (tName); 
if (tFile ! = null) { 

tFile_node = create_file_tree (tFile, current_depth+l) ; 

if (tFile_node != null) { 

mod = (this_file_mod - tFile . lastModified ()) /60000 ; // is 
it in milliseconds? or even a valid time? 

tFile_node . set_mag (Node . B ARE LY_V I S I B LE_MAG ) ; 

this_f ile_node . link (tFile_node , 
get_node_from_file_suf fix (list [i] ) ) ; 

} 

} 

} 

if (starting) { 

FilesNode . link (this_f ile_node) ; 
datasea.needdistUpdate = true; 

) 

} 

return (this_file_node) ; 
} // end create_f ile_tree 

/* * 

* * popn NOTES 

* ★ 

*/ 

public void popn () { // "show notes" 
int i ; 

Node tn - datasea. find_node_named( "Notes" ) ; 
if (tn==null) { 

GUI.ERROR(0, "■', "node 'Notes' is null") ; 

return ,- 

} 

GUI . input . st ring_input (" input Notes This is a free- form note" ); 
GUI. input. st ring_input ("input Notes Tallis is red"); 
GUI. input. string_input ("input Notes Tallis is a cat"); 
GUI . input . string_input ( "input Notes Tallis eats mice" ) ; 
GUI . input . string_input ( " input Carl called about computer" ) ; 
GUI . input . string_input ( "input Bob complained about desk" ) ; 
GUI . input . string_input (" input John Smith called about car"); 

GUI . input . string_input ( " input klavier : syn : piano" ) ; 
GUI . input . string_input ( " input Bob ' s Klavier is German" ) ; 
GUI . input . string_input ( "input Bob 1 s piano is a Steinway" ) ; 
GUI . input . string_input ( " input Bob mtg 4pm NextWeek" ) ; 
GUI . input . string_input ("input Bob mtg 4pm Oct 1999" ) ; 



GUI . input . string_input ( "input Mtg with Jill 4pm Jun 3 2000"); 
GUI . input . st ring_input { "input Mtg with IBMer 4pm Apr 3 2000") 
GUI . input . st ring_input ( "input Bob is an IBMer"); 
GUI . input . string_input ( " input Jill is an IBMer" ) ; 

//triplet ("Carl", "Red", "HairColor") ; 
//triplet ("Carl", "BMW" , "Car") ; 

/ /GUI . input . string_input ( " input Carl ' s HairColor is Red" ) ; 
//GUI . input . string_input ( " input Carl ' s Car is BMW" ) ; 

GUI . input . string_input ( "input Mtg with Bob LastWeek" ) ; 

GUI . input . string_input ( " input Mtg with Bob Today" ) ; 

GUI - input . string_input ("input Mtg with CommitteeX May 30 2000 

datasea.needdistUpdate = true; 
GUI.P(0, "popn" , "show Notes" ) ; 
return ; 

} // end (notes) 



J * * 

** popx EXTRA, MISC 
** 

*/ 

public void popx () { // "show web" 
int i; 

Node tn=null; 

GUI.P(0,"", " Populate miscellaneous, Web & Files Run."); 
gen_array (Cluster_Web) ; 

Cluster_Files.link(gen_tree(Cluster_Files) ) ; 

if ( (tn = datasea. f ind_DN_named ( "DO .1 . 0" ) ) != null) 

tn.link(datasea.cl("Music", "AN") ) ; 
if ((tn = datasea. find_DN_named ("DO. 1. 1" ) ) != null) 

tn. link (datasea. cl ("Music", "AN") ) ; 
if ( (tn = datasea. find_DN_named(" Dl.l .1") ) != null) 

tn. link (datasea. cl ("Music", "AN") ) ; 

if ((tn = datasea. f ind_DN_named ( "Dl .2 . 0") ) != null) 
tn . link (datasea . cl ( "Theater" , "AN" ) ) ; 

if ((tn = datasea. f ind_DN_named ( "Dl . 2. 1" ) ) != null) 
tn. link (datasea. cl ("Theater", "AN") ) ; 

if ((tn = datasea.find_DN_named("D0.2.2") ) != null) 
tn. link (datasea. cl ("Theater", "AN") ) ; 



GUI . P ( 0 , " popx " , " show Web " ) ; 
} // end popx 
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* * popmap 

* ★ 

*/ 

public void popmap {) { // "show map" 
int i ; 

Node map_node, SF_node, LA_node, Berkeley_node; 
// create a map 

map_node=new Node ( "Map" , "DN" , "Map of California", 100,100, 60,150); 
LA_node = create_node ( "LA" , "DN" ) ; 
SF_node = create_node ( " SF" , "DN") ; 
Berkeley_node = create_node ( "Berkeley" , "DN" ) ; 

LA_node.X = 10; LA_node . Y = -140; 
SF_node.X = 10; SF_node.Y = 12 0; 
Berkeley_node.X = 20; Berkeley_node . Y = 4; 

map_node . link (LA__node) ; 
LA_node . link (SF_node) ; 
Berkeley_node.link(SF_node) ; 

DataSea . Root . link (map_node) ; 

GUI . P ( 0 , " popmap " , " show Map 11 ) ; 
} // end popmap 

/** 

** popfab 
* * 

*/ 

public void popfab () { // "show fab" 
int i ; 

Node fab_node, X_node, Y_node, Z_node; 
Node node_l, node_2 ; 

// create a wafer fab data set with temp-machine data 

GUI.P(0, "ab", " late VR, e.g. »Fab' Run. ") ; 

fab_node=new Node {" Fab" , "DN" , "Wafer Fab with machines and data", 
100, 100, 600,400) ; 

X_node= new Node ( "Mac h_X" , "DN" , "Machine X in wafer fab",0, -30,10,5) 
Y_node= new Node ( "Mach_Y" , "DN" , "Machine Y in wafer f ab" , 50 , -30 , 10 , 5 ) 
Z_node= new Node ( " Mach_Z " , "DN" , "Machine Z in wafer f ab" , 90 , -30 , 10 , 5) 

f ab_node . link (X_node) ; 

f ab_node . link (Y_node) ; 

f ab_node . link (Z_node) ; 

(f ab_node .getLinkTo (X_node) ) . setLinksVRparms (X_node) ; 
(f ab_node . getLinkTo (Y_node) ) . setLinksVRparms (Y_node) ; 



(f ab_node . getLinkTo (Z_node) ) . set Link sVRparms (Z_node) ; 

node_l = new Node ( "MachName" , "AN" ) ; 
node_l . link (X_node) ; 
node_l . link (Y_node) ; 
node_l . 1 ink ( Z_node ) ; 

node_l = new Node ( "Temp" , "AN" ) ; 
node_2 = new Node { "32 « , "DN" ) ; 

node_l . link (node_2 ) ; 

X_node . 1 ink ( node_2 ) ; 
node_2 = new Node ( 11 12 " , "DN" ) ; 

node_l . link (node_2 ) ; 

Y_node . link (node_2) ; 
node_2 = new Node ( » 21 " , "DN" ) ; 

node_l . link (node_2 ) ; 

Z_node . link (node_2 ) ; 



node_l = new Node ( "Voltage" , "AN" ) ; 
node_2 = new Node ( "v32" , "DN" ) ; 

node_l . link (node_2) ; 

X_node . link (node_2 ) ; 
node_2 = new Node ( "vl2" , "DN" ) ; 

node_l . link (node_2 ) ; 

Y_node . 1 ink (node_2 ) ; 
node_2 = new Node ( "v21" , "DN" ) ; 

node_l . link (node_2) ; 

Z_node . link <node_2 ) ; 

GUI.PtO, "popfab" , "show Fab"); 
datasea.needdistUpdate = true; 
} // end popfab (VR) 

/** 
* * pope 

*/ 

public void pope 0 { // "show chromosome" 
int i ; 

Node a , b , c , d ; 

// create a chromosome with a few sites 

a=new Node ( " Chromosome " , " chromosome " , " Fake chromosome " ) 
DataSea . Root . link (a) ; 

datasea.needdistUpdate = true; 
GUI . P ( 0 , " pope " , " show chrommosome " ) ; 
} // end (Chromosome) 
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J it * 

** DataSea.gen_array 
* * 

5 */ 

public void gen_array (Node caller) { 
int i , j , k ; 
Vector vec; 
Node tnode; 

10 int array_size = 20, x,y; 

Node CN3 , CN4 , CN5, CN6; 

vec = new Vector ( ) ; 
15 for (i=0; i<array_size; i++) { 

x = (int) (caller. x +50 -100 *datasea . gui . random ()) ; 
y b (int) (caller. y +5 0-10 0*datasea . gui . random ( ) ) ; 
tnode = new Node ( "el"+i, "DN" , "from gen_array M , 
x,y) ; 

2 0 ve c . addE 1 emen t (tnode) ; 

caller. link (tnode) ; 



CN3 = new Node ( " FirstHalf 11 , "AN"); 

2 5 for (i=0; i<array_size/2 ; i++) 

CN3 . link ( (Node) vec . element At (i) ) ; 

CN4 = new Node ("SecondHalf", "AN") ; 
for (i=array_size/2 ; i<array_size ; i++) 

3 0 CN4 .link( (Node) vec . element At (i) ) ; 

/** CN5 = new Node("CN5", "DN"); 

for (i=0; i<array_size ; i+=5) 

CN5 . 1 ink ( (Node) vec . element At ( i ) ) ; 

35 

CN6 = new Node("CN6", "DN"); 
for (i=0; i<array_size; i+=6) 

CN6 . link ( (Node) vec . elementAt ( i) ) ; 
caller. link (CN3) ; 

4 0 caller, link (CN4) ; 

caller. link (CN5) ; 
caller.link(CN6) ; 



*/ 

45 } 



return; 



/ * * 

** gen_tree 



50 
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public Node gen_tree (Node caller) { 

int i , j , k ; 
int branch_count = 4 ; 
int x , y ; 

Node trunk, node__i, node_ j , node_k; 

//x = (int) caller .x; 

//y = (int) caller .y; 
x = 0; 
y = 0; 



trunk = new Node ( "A" , "DN", "Trunk of Tree", 

0,0, 25,25); 
for (i=0; i<branch_count ; i++) { 

node__i = new Node("B"+i, "DN" , "branch_node" , 

0, 0, 5, 5); 
t runk . 1 ink ( node_i ) ; 

for (j=0; j <branch_count ; j++) { 

node_j = new Node ( "C"+i+" . "+j , "DN" , 

"branch_node" , 

0,0, 2,2) ; 

node_i . link (node_j ) ; 

for (k=0; k<branch_count ; k++) { 

node_k = new Node ("D"+i+" . "+j+" . "+k, "DN", "leaf node" 

0,0, 2,2); 
node_j . link (node_k) ; 
if (k==0) 

node_j . Type=" DN" ; 

} 

} 

> 

return (trunk) ; 
} // end gen_tree 



/** 

** URLtoANpair see if it exists, create it if need be, return it 
* * 

*/ 

public Node URLtoANpair (String URL_name, String AN_name) { 
Node URL, AN; 

//GUI .P(0, "URLtoANpair" , "Creating < "+URL_name+" > , < " +AN_name+" >" ) ; 

URL = create_node (URL_name , "URL", false); 
AN = create_node (AN_name, "AN", false); 
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//URL. link (AN) ; 

URL. link (AN, Cluster_Web) , 



return (URL) ; 

} // end URLtoANpair 



10 . 

I * * 

** URLtoURLpair see if it exists, create it if need be, return it 
* * 

15 */ 

public Node URLtoURLpair (String URLl_name, String URL2_name) { 
Node URL1, URL 2 ; 



20 



//GUI . P(0, "URLtoURLpair" , "Creating <"+URLl_name+">, < " +URL2_name+" > " ) 

URL1 = create_node (URLl_name, "URL" , false) ; 
URL 2 = create node (URL2_name , "URL", false); 



//URLl.link(URL2) ; 
2 5 URL1 . link (URL2 , Cluster_Web) ; 

return (URL1) ; 

} // end URLtoURLpair 



30 



/ * * 

** ANpair see if it exists, create it if need be, return it 

35 

*/ 

public Node ANpair (String ANl_name, String AN2_name) { 
Node AN1, AN2; 

40 //GUI . P (0, "ANpair" , "Creating <"+ANl_name+">, < 11 +AN2_name+" > " ) ; 

AN1 = create_node (ANl_name, "AN", false); 
AN 2 = create_node (AN2_name, "AN", false); 

45 AN1 . link (AN2) ; 

return (AND ; 

} // end ANpair 

50 
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/*. 

** METApair see if it exists, create it if need be, return it 

public Node METApair (String meta_name, String AN_name, String URL__name) 

{ 

Node met a, AN, URL; 

GUI - P (0, "METApair" , "Creating meta name of <"+meta_name+">, value of 
<"+AN_name+"> linked to URL "+URL_name) ; 

meta = create_node (meta_name, "PN" , false); 
AN = create_node (AN_name, "AN", false); 
URL = create_node (URL_name, "URL", false); 

meta. link (AN) ; 
URL. link (AN) ; 

//meta. isPolarized = true; 
//AN. isPolarized = true; 

datasea .gui ,dump_node (0 , true, meta); 

return (AN) ; 

} // end METApair 



** ANANpair see if it exists, create it if need be, return it 
★ * 

*/ 

public Node ANANpair (String ANl_name, String AN2_name) { 
Node AN1, AN2; 
Node subnode ; 
int num_words, i; 
String words [] ; 

//GUI . P (0, "ANANpair" , "Creating <"+ANl_name+" >, < " +AN2_name+" > " ) ; 

AN1 = create_node (ANl_name, "AN", false); 
AN 2 = create_node (AN2_name, "AN", false); 

AN1 .link (AN2 , "polarized") ; 
//AN1 . isPolarized = true; 
//AN2 . isPolarized = true; 

// NOW SEE IF EITHER ARG CONSISTS OF INDIVIDUAL WORDS, MAKE UNPOLARI ZED LINKS 

StringTokenizer t = new StringTokenizer (ANl_name, " "); 
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num_words = t . countTokens ( ) ; 

if (num_words != 1) { // if only one word, no need to break it apart 
words - new String [num_words] ; 
for(i - 0; i < num_words; i++) { 
words [i] = t .nextTokenO ; 
subnode = create_node (words [i] , "AN" , false); 
AN1 . link (subnode, "unpolarized"); // unpolarized link 
//GUI.P(0, "ANANpair", "Linking AN1< " +ANl_name+" > , 
< " + subnode . Name+ 11 > " ) ; 

} 

} 

/*************************************************** 

t = new StringTokenizer (AN2_name , " "); 
num_words = t . countTokens ( ) ; 

if (num_words != 1) { // if only one word, no need to break it apart 
words = new String [num_words] ; 
for(i =0; i < num_words; i++) { 
words [ i ] = t . nextToken ( ) ; 
subnode = create__node (words [i] , "AN" , false); 
AN2 . 1 ink ( subnode , "unpolarized"); // unpolarized link 
//GUI.P(0, "ANANpair", "Linking AN2<"+AN2_name+" >, 
< " + subnode - Name+" > " ) ; 

} 

} 

************************ ******************** *******/ 

return (AND ; 

} // end ANANpair 



/** 

** ANDNpair see if it exists, create it if need be, return it 
* * 

*/ 

public Node ANDNpair (String ANl_name, String DN2_name) { 
Node AN1, DN2; 

//GUI . P(0, "ANDNpair" , "Creating < " +ANl_name+" > , < " +DN2_name+" > " ) ; 

AN1 = create_node (ANl_name, "AN", false); 
DN2 = create_node (DN2_name, "DN", false); 



AN1 . link (DN2) ; 
//ANl.isPolarized = true; 
//DN2 . isPolarized = true; 



return (AN1) ; 

} // end ANDNpair 
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/** 

** triplet see if it exists, create it if need be, return it 
** Automatically create a matching AN for a DN 

*/ 

public Node triplet (String DNl_name, String DN2_name, String AN_name) { 
Node DNl , DN2 , AN; 

return ( triplet (DNl_name, DN2_name, AN_name, null, null) ) ; 
} // end triplet 

/** 

** triplet see if it exists, create it if need be, return it 
** Automatically create a matching AN for a DN 

*/ 

public Node triplet (String DNl_name, String DN2_name, String AN_name, 

Node CNode, String polarized_string) { 

Node DNl , DN2, AN; 
Link link; 

GUI . P (1 , "triplet" , "Creating <"+DNl_name+">, < " +DN2_name+" > , <"+AN_name+" >" ) ; 

DNl = create_node (DNl_name, "DN" , false); 
DN2 - create_node (DN2_name, "DN" , false); 
AN = create_node (AN_name, "AN", false); 

// this way to polarize from DN1->DN2 and AN- >DN2 
DNl. link (DN2, CNode, polarized_string) ; 
AN . link (DN2 , CNode, polarized_string) ; 

link = DNl . getLinkTo (DN2 ) ; 
if (link != null) 

link. Name = AN. Name; 

// AN.isCN = true; 

// link . addCNode (AN) ; // have AN modulate link between DNl and DN2 

// link = DN2 .getLinkTo (AN) ; 

// link . addCNode (AN) ; // have AN modulate links to itself 

//AN. isPolarized = true; 

//DNl . isPolarized = true; 

//DN2 . isPolarized = true; 
return (DNl) ; 
} // end triplet 



/** 

** make BB 
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* ★ 
*/ 

public Node make_BB (String cmd, String Name) { 
int i, size; 
Node newBBnode; 
//String type = "BB"; 
String type = " DN " ; 

if (cmd. equals Ignore Case ("start" ) ) { 

lastBBnode = create_node_f orced (Name , type , 11 " ) ; 

GUI . P(0, ,, make_BB" , "Created node "+lastBBnode .Name+" , 
Type="+ lastBBnode .Type) ; 

} 

else if (cmd. equal slgnor eCase ( "add" ) ) { 

newBBnode = create_node_f orced (Name , type , " " ) ; 
lastBBnode . link (newBBnode) ; 

GUI . P (0, "make_BB" , "Created node "+newBBnode .Name+" , 
Type ="+newBBnode. Type +" , linked to "+ lastBBnode. Name ) ; 

lastBBnode = newBBnode; // save this one for later calls 

} 

return (lastBBnode) ; 
} // end make_BB 



I * * 

** create_node Name only, ForceCreation=f alse 
** 

*/ 

public Node create_node (String Name) { 
return ( create_node (Name, "DN" , " " , false) ) ; 
} 

/** 

** create_node Name and Type only, ForceCreation= false 

* * 

V 

public Node create_node (String Name, String Type) { 
return( create_node (Name , Type, "", false) ); 

} // 
/** 

** create_node Name, Type and ForceCreation only 

* * 

*/ 

public Node create_node (String Name, String Type, boolean ForceCreation) 

{ 

return! create_node (Name , Type, "", ForceCreation) ) ; 
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} // 

/ * * 

** create_node Name, Type and Desc only, ForceCreation^ false 

5 */ 

public Node create_node (String Name, String Type, String Desc) { 
return ( c r eat e_node (Name, Type, Desc, false) ) ; 
} // end create_node 

10 /** 

** create_node Full version: see if it exists, create it if need be (or is 
forced) , 
** return it 

** (Automatically create a matching AN for a DN if >1 DN»s of 

15 same name) 

*/ 

public Node create_node (String Name, String Type, String Desc, boolean 
ForceCreation) { 

Node ret_node=null, tnode=null; 

20 



if (ForceCreation) { 

datasea . gui . P ( 0 , " create_node 11 , " ForceCreate is 
2 5 true! !!!!!!!!!!!!!!!!!!!"); 

if (Type. equals ("AN") ) {// If forcing an AN, make top-level then 



a child 



tnode = datasea. f ind_node_named (Name, Type); 

if (tnode == null) { // get top-level AN, then add another 



30 AN 



tnode = create_node_f orced (Name, Type, Desc) , 

} 

ret_node = create_node_f ore ed (Name, Type, Desc) ; 
tnode . 1 ink ( r et_node ) ; 

3 5 return (ret_node) ; 

} 

else 

return (create_node_f orced (Name, Type, Desc) ) ; 
} 

4 0 else // don't ForceCreation 

if ( (ret_node=datasea. f ind_node_named (Name) ) ==null) { 
ret_node = new Node (Name, Type, Desc); 

} 

else { 

45 if (ret_node .Desc .equals ("") ) 

ret_node .Desc = Desc; 

} 

return (re t_node) ; 
50 } // end create_node 
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/ * * 

** create_node_f orced 
* ★ 

*/ 

public Node create_node_f orced (String Name, String Type) { 
return ( create_node_f orced (Name , Type , "" ) ) ; 
} // end create_node_forced 

/* ★ 

** create_node_f orced 
** 

*/ 

public Node create_node_f orced (String Name, String Type, String Desc) { 
int i, size; 

Node ret_node=null, other_dn_node=null , an_node=null ; 

if (Type . equalsIgnoreCase ( "DN" ) ) { 

// see if there's an AN and link it to the new DN 

// if there's a DN already, make sure an AN exists and link them 

if (null != (other_dn_node=datasea. f ind_node_named (Name, "DN"))) { 
an_node = datasea . f ind_node_named (Name, "AN"); 
if (an_node == null) { 

an_node = create_node (Name , "AN", false); 
other_dn_node . link (an_node) ; 

} 

} 

ret_node = new Node (Name, Type, Desc); // forced 
ret_node . link( an_node ); // may or may not exist 
} 

else 

ret_node = new Node (Name, Type, Desc); // forced 

return (ret_node) ; 

} // end create_node_f orced 



** get 
* * 

*/ 

public void get_a_URL (Node node) { 
int i, size=0; 
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Node child; 

System. err .println ( "==========-=- get_a_URL ... Begun 

. . = = = = = = = = = = = = = = = = := = = = = = = = = = = = = =: = =:= ") ; 

System. err .print In ( "============= "+node.Name+" , 

Type="+node . Type + 11 =====================" ) ; 

if (node.isURL) { 

System. err .print In ( "============= Calling pull_in_URLs on 

"+node.Name+ ,, ==========================") ; 

pull_in_URLs (node .Name, " 11 , 1 , (Node) null) ; 

} 

else { // do it on all the children 

System. err .println ( "============= Calling pul l_in_URLs on children of 

"+node . Name+" ==========================" ) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node . getNodeAtLink (i) ; 

if (child. isURL && (child. dist > node.dist)) 

pull_in_URLs (child. Name, " 11 , 1, (Node)null); 

} 

} 

} // end get_a_URL 
} // end Populate 
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// This is GUI.java by Rocky Nevin 

import j ava . applet . * ; 
import j ava . lang . * ; 
import j ava . awt . * ; 
import j ava . awt . event . * ; 
import java.util.*; 

import java.sql.*; // for the class Timestamp 
import j ava . io . * ,- 



/* * 

* This is GUI.java by Rocky Nevin 

* which is the top-level object for DataSea, instantiated within this. 
* 

Lef tButton 

MiddleButton -> Alt down 
RightButton -> Meta down 



* 

* ©version 0.1, 8/10/98 

* ©version 0.2, 9/6/98 

* ©version 0.3, 11/4/98 

* run() -> updateO -> [ paint (Node, layer_index) calls 
pos it ion_and_render_s tart (Node caller, int dist_to_POV) ] 

* ©version 0.4, 3/12/98 
★ 

* 

* Principal Methods : 
add_buttons 
demol/2 

dump 
init 
main 

position_start/child_node/recursive 

render_st art /recursive 

run_thread 

sleep 

update, paint 
2/6/99 

The bottom functions (render/position) return boolean whether to recurse, 
assuming a VR function handles things in node -dependent ways. 

Node.VRyes, via VRyes (Node) , individually allows setting of VR mode 
render_start ( ) 

|-> render_re cursive () lastly calls render_re cursive ( ) 
| - > render_node ( ) 



posit ion_start () 



PATENT 



|-> position_recursive() lastly calls position_recursive ( ) 
||-> position_node ( ) 

NEED: to correct nsr_jposition_XXXXX functions, e.g. JDIR, _DIR_ENTRY 
2/25/99 

Focus on TimeLine, storing POV's and not recursing through them (spread, etc) 
6/1/99 

shift, meta etc are key events, handled in key_input(), and may also 
be queried in processEvent (either newButton or newFrame) by 
checking (InputEvent) (event) . isShift () , isMetaO, etc. 

6/6/99 
Remember : 

width depends on node.size_x which is constant and in data coordinates, 
in VRmode, if node.x depends on another node, its node .x=other .x (+- 
) other . size_x/2 

magscale and WindowOf f sets occur only once, in drawing on screen, i.e. 
using map() fn 

// height = (int) ( (child. size_y) ) ; 

That is, node.x|x|dx|dX is in data space and should thus not 
depend on viewing parms 

6/7/99 

Very odd: I don't see why the old style of POV or Parent pressure 

brings in remote high-value mags, e.g. from 'sim', but it does. 

Probably the force is simply strongly negative, the direction tending 

vertically from POV to its linked node. 

Note also that 2pm: today: is not linked to Today 

Note also 'text' for EMF is not placed nicely 

Note large data text isn't handled. 

6/8/99 

Fixed the thread interaction problem (I think), whereby unlinking nodes while a 
thread was animating, and insize a recursive rendering routine, would give 
invalid 

references to pointers. 

Changed child positioning to be fan-shaped, POV pressure now segregates higher 
mag 

distal children. 

Application EMail now automatically resets view and POV and zooms on the email 
form. 

Looks good. 
6/11/99 

Consider way to have parsed input linked distally to ANs, like email, phone, 

etc . 

6/12/99 



PATENT 



Problem with TL position with getLinksVRparms ( ) is that I've not called 
setLinksVRparms ( ) 

on all of them, therefore VRyesO returns false often. 
6/17/99 

Added vote_b ranch, to vote on branches 

Need to add time -dependent display, e.g. pulsating mags to see effects, 'what 

if »s 

6/18/99 

Added draw_string ( ) which wraps text, and started popEcon() . 

Showing TL, then resetting and showing again, it's children Today, Tomorrow, 
Yesterday 

are in different positions, same X though, same linkage as before. 
6/21/99 

Need abs to be more general, e.g. spreads through anything, not just DNs 

TL and friends is a mess, not positioned as expected. 

6/27/99 

Inhibited recursion if dist==-l, added Node . importance 



END OF COMMENTS 
*/ 

public class GUI extends Applet implements Runnable { 



int INFINITE_DEPTH = 1000; // just a number to give essentially infinite depth 
of levels 

int image_counter =1; 

public static int count er_of_pos it ioned_nodes = 0; 

public static int max_transition_count = 1; 

public static Graphics graphics; 

public static Graphics graphicsl, graphics2; 

public static Graphics graphics_f rame2 ; 

public static Graphics text_graphics ; 

public static Frame frame, frame2, text_frame, diag_frame; 

Image image 1 , image 2 ; 

static Mode mode_obj ; 

static String GlobalUserDir ; 

static String GlobalUserHomeDir ; 

static String GlobalOSName ; 

static boolean quick = true; 

static boolean doNormalization = true; 

static boolean showBoundaries = false; 

static boolean checkPolarization = true; 

static boolean auto_re scale = true; 

static boolean parse = true; 

static double spread_f actor=0 . 15 ; 

static double thetaOf f set=0 . 4 • 

static double max_x, min_x, max_y, min_y; // used by rescaleO and auto_rescale 
static int desired_visible_count = 30; // used by DataSea . auto_f latten ( ) 
8/24/99 

Point GlobalMapPoint ; // 

static Point TinyPoint ; // used by map() 



Force force; 
int drawing_counter=0 ; 
static boolean Animating - false ,- 
static boolean NetOK = true; 
static boolean shr ink ing_al lowed = true; 
static boolean is_meta_down = false; 
static boolean is_alt_down = false; 
static boolean is_control_down = false; 
static boolean is_shif t_down = false; 
static boolean coordinates__on=true ; 
static boolean drawBoxes = true; 
static boolean TinyFlag = falser- 
static boolean globalDoTiny = falser- 
static boolean global_ok_to_draw = false; 
static double global_angle_array [] ; 
//static double TinyScale m 1.0; 
static double globalMaxPressure = 1.0; 
static boolean StopThreadRequest = false; 
static boolean FlipAxes = falser- 
static boolean meta=false; 
static boolean alt=false; 
static boolean shift=false; 
static boolean control=f alse; 
static int counter=0; 
static int mouseX=0; 
static int mouseY=0; 
static int spaceX=0; 
static int spaceY=0; 
static double magscale = 1.0; 
double pressure_mag = 3.0; 
static int updateCount = 8; 
static int Globaldist; 

Static double DEFAULT_TEXT_THRESHOLD=Node . BIGJVIAG; 
static double DEFAULT_POS_THRESHOLD=Node . BARELY_INVISIBLE_MAG ; 
static double DEFAULT_RELATIONS_THRESHOLD=Node . MED_MAG; 
Static double DEFAULT_BOX_THRESHOLD=Node . MED_MAG ; 

static double pos_threshold = Node . BARELY_INVTSIBLE_MAG; 

static double relations_threshold = Node . MED_MAG ; 

static double text_threshold = Node .MED_MAG-1 ; 

static double box_threshold = Node . MED_MAG ; 

static Thread animation_thread; 

static GUI gui; 

static DataSea datasea; 

static Input input; 

static Timer timer; 

static TL tl; 

static int recurs ion_depth = 1; 
static int dist_limit = 100; 
static boolean drawText - truer- 
static boolean drawLinkNames = true; 



static boolean drawFile = false; 
static boolean drawDirectory = true; 
static boolean drawWind = true; 
static boolean drawAN = true; 
static boolean drawON = true; 
static boolean drawDN = true; 
static boolean drawEvent = true; 
static boolean drawCN = false; 
static boolean drawPN = true; 
static boolean drawURL - true; 
static Node Xnode=null; 
static Node lastNode=null ; 
static Node TinyNode = null; 
static Node SavedNode = null; 

static Node Myself; // This is a self -node, one which can be used to show the 
DataSea 

// program itself 
static Node VR_MACH_NODE , VR_FAB_NODE; 
boolean string_active = false; 
String TitleString = ""; 
String key_input_string = " " ; 
static String last Command = ""; 
static String StatusLine [] ; 
static String global_str [] =null ; 
static int global_str_size=0 ; 
static int MAX_GLOBAL_STR_SIZE=14 0 ; 
Timestamp timestamp; 
java.util -Date date; 

static j ava . lang . Double j ava_lang_double ; 

static j ava . 1 ang . Long j ava_l ang_l ong ; 

// Node node; 

static long current_TS; 

static long thisCommandTS ; 

static long lastCommandTS; 

static int Debug = 0; 

static boolean Details = true; 

static int GlobalNodeNode = 0; 

static Font titleFont; 

static Font littleFont; 

Font buttonFont; 

// static int WindowWidth=60 0 , WindowHeight=600 ; 

static int WindowWidth=1240 , WindowHeight=1028 ; // defaults, set in init() 
static int WindowXcenter=WindowWidth/2 , Window Yc ente r =WindowHe ight /2 ; 
static int WindowXOf f set=0 , WindowYOf f set=0 ; 
static String priorCommand = " 11 ; 

static Vector selected_nodes_vec; // holds all nodes that are selected 
public static Key Event ke; 
TextField text_field; 



static List list; 



MyDialog query_dialog, input_dialog ; 
static newButton but ton_animat ec- 
static newButton button_reset ; 
static newButton button_absorb__POV; 
static newButton button_j)opul at ec- 
static newButton button_position; 
static newButton buttonJbackground_color ; 
static newButton button__render ; 
static newButton button_lines ; 
static newButton button_potentiation; 
static newButton but ton_j?ost process or ; 
static newButton button__increase_mag; 
static newButton button_Debug; 
static newButton button_Dump; 
static newButton but ton_mor e_at tract ion; 
static newButton button_more_repulsion; 
static newButton button_Stop,- 
static newButton button_drawText ; 
static newButton button_drawDN; 
static newButton button_drawCN; 
static newButton button_pres Parent ; 
static newButton button_presPOV; 
static newButton button_presNeighbors ; 
static newButton button_presNoise ; 
static Checkbox check; 

static double ThetaMultiplier=Math. PI/2 ; 



ColorObj color_ob j ; 



public static void main (String [] argv) 

{ 

gui=new GUI () ; 
} 

public GUI () { 
super ( ) ; 

Graphics!] graphicsarray ; 
if (gui == null) 
init () ; 
) 



* * beep 

* * 

*/ 

static public void beep () { 
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int i, size; 
Node tn; 

Toolkit .getDefaultToolkit () .beepO ,- 

5 

} // end beep 
J * * 

* If G is the top level object of an applet, initO gets run automatically. 
10 * Linked objects and animation 

*/ 

public void init {) { // frame, graphics, font 
int i ; 

15 if (gui == null) 

gui = this; 

dump_properties ( ) ; 

2 0 global_str = new String [MAX__GLOBAL_STR_SIZEj ; 

StatusLine = new String [15] ; 

StatusLine [0] = » ; 

for (i=0; i<15; i++) 

StatusLine [i] = 

25 

Toolkit .getDefaultToolkit () .beepO ; 

System, out .println (Toolkit . getDef aultToolkit () . getScreenSize ( ) ) ; 
WindowWidth=Toolkit .getDefaultToolkit () .getScreenSize ( ) . width; 
WindowHeight=Toolkit .getDefaultToolkit () . getScreenSize ( ) .height; 

3 0 WindowXcenter=WindowWidth/2 ; 

WindowYcenter=3*WindowHeight/5 ; 

timer = new Timer (); 
input = new Input (gui ) ; 

3 5 color_obj = new ColorObjO; 

color_obj . init () ; 

reset_current_TS ( ) ; 

date = new java .util .Date () ; 

timestamp = new Timestamp (date . getTime ( ) ) ; 

4 0 frame = new newFrame ( "This is a Frame"); 

frame . setSize ( WindowWidth, WindowHeight) ; 
Point p = new Point (20,0) ; 
f rame . set Location ( p ); 
// frame . setBackground (Color .white) ; 
4 5 frame . setBackground (color_obj . DarkGrey) ; 

//frame . setBackground (color_obj . VeryLightGrey) ; 
frame. set Layout (new j ava . awt . FlowLayout ( ) ) ; // 8/22/99 
//frame . set Layout (new j ava . awt . BorderLayout ( ) ) ; 
frame.setTitle("DataSea: "+date . toString ( ) ) ; 
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TitleString = "DATASEA: CONFIDENTIAL AND PROPRIETARY Information of Rocky Nevin, 

» +date . toString { ) ; 

frame . setTitle (TitleString) ; 

//frame . show() ; 

//frame . setvisible (true) ; 

graphics = frame . getGraphics ( ) ; 

status ("Hello, this is GUI.initO running. OS_Name^" +GlobalOSName+" , 
UserDir="+GlobalUserDir) ; 

titleFont ■ new java . awt . Font ( "Arial" , Font . BOLD , 12); 
littleFont = new java . awt . Font ( "Helvetica", Font. BOLD, 8) ; 
frame. set Font (titleFont) ; 
frame . setvisible (true) ; 



text_frame - new Frame ("URL Frame"); 
text_f rame . setSize ( 200, 400 ); 
p = new Point (WindowWidth- 200, 0) ; 
text_f rame . setLocat ion ( p ); 

text_f rame . set Background (color_obj . VeryLightBlue) ; 
// text_f rame . set Layout (new j ava . awt . Border Layout ( ) ) ; 
// TitleString = 

// text_f rame. setTitle (TitleString) ; 
// t ext_f rame. show () ; 

// text_graphics = text_f rame .getGraphics () ; 

diag_frame = new Frame ( "Diagnostic Messages"); 

diag_f rame. set S ize ( WindowWidth, 150 ); 

p = new Point (0, WindowHeight - 130); 

diag_f rame . setLocat ion ( p ); 

diag_f rame. set Background (Color .black) ; 

diag_f rame . setBackground (color_obj . VeryLightGreen) ; 

list = new List (22); 

list . set Enabled (true) ; 

diag_f rame . add ( "North" , list) ; 

mode_obj = new ModeO; 
force = new Force ( ) ; 
GlobalMapPoint = new Point ( ) ; 
java_lang_double = new Double(O); 
java_lang_long = new Long(0); 

add__buttons () ; 

imagel = f rame . create Image (WindowWidth, WindowHeight); 
image2 = f rame . create Image (WindowWidth, WindowHeight); 
graphicsl = imagel .getGraphics () ; 
graphics2 = image2 . getGraphics () ; 

datasea = new DataSea (this) ; // Construct Data Sea 



input - new Input (this) ; // Construct Data Sea 

tl = new TL() ; // TimeLine object 

datasea . pop . populate_begin ( ) ; 

// testO; 

run_thread ( ) ; 

datasea . word_reset { ) ; 
global_ok_to_draw = true; 

} // end init 
I * * 

** write_to_f rame2 
*/ 

public void write_to_f rame2 {String s) { 

graphics_frame2 .clearRect (0, 0, (f rame2 . get Size () ) .width, 
(f rame2 .getSize () ) .height) ; 

date = new java.util .Date { ) ; 

Tit leSt ring = "DATASEA: CONFIDENTIAL AND PROPRIETARY Information of Rocky Nevin, 
«»+date.toString() ; 

graphics_f rame2 . setColor (Color .blue) ; 
graphic s_frame2 .drawString (date. toSt ring () , 10,40) ; 

graphics_f rame2 . setColor (Color .black) ; 

graphics_frame2 .draws t ring ( "abcdefg counter = "+counter, 10,100); 
graphics_frame2 .drawString (s, 10,110) ; 

return ; 

} // end write_to_f rame2 



** extra_frame 
* * 

*/ 

public void extra__frame () { 
frame2 = new newFrame ( "This is a Frame") ; 
f rame2 . set Size ( 600, 400); 

f rame 2 . set Location ( new Point (0 , (int ) (WindowHeight*0 . 8) ) ); 
frame2 . setBackground (color_obj .Very Light Grey) ; 
frame 2 . set Lay out (new j ava . awt . BorderLayout ( ) ) ; 
frame2 . setTitle ( "Frame2 : " +date . toString ( ) ) ; 
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f rame2 . setVisible (true) ; 
graphics_f rame2 = f rame2 .getGraphics () ; 
sleep(lOOO); // need to wait before writing to it 
} // end extra_frame 



public void test () { 
int c; 
10 char b[] ; 

b = new char [1000] ; 



1 5 extra_f rame ( ) ; 

write_to_frame2 ( "Hello, this is a test from extra_f rame ( ) " ) ; 
// try { 

File inputFile = new File ( 11 /usr/people/rocky" ) ; 
// File Input St ream f is = new FileInputStream( inputFile) ; 
20 // while ( (c=fis.read(b) ) != -1) 

// System, err .print ( » ! ! : >>>"+b [0] +b [1] +b [2] +b [3] +b [4] +b [5] +"<<<") ; 

// f is . close { ) ; 

// 

// FileReader fr = new FileReader (inputFile) ; 
2 5 f i le_dump ( input Fi 1 e ) ; 

// } 

// catch (FileNotFoundException e) { ERROR ( 0 , "test ", "File 
/usr/people/rocky/x not found."); } 

// catch (IOException e) { ERROR (0 , "test " , "IOExcept ion. ") ; } 

30 

calc_angles ( ) ; 



/************************************ 
3 5 * FontMetrics fontMetrics; 

* fontMetrics = new FontMetrics (titleFont ) ; 

* System. err .print In ( "FontMetrics .char sWidthO =" 

* +f ontMetrics .charsWidth (chrs, 0, 10) ) ; 
***★*********************************/ 

40 

/★*********★★★★*** 

* P ( 0 , " init " , " theta (1,0)=" +get_angle (1,0)); 

* P(0, "init" , "theta (1,1) =" +get_angle (1 , 1) ) ; 

* P(0 # "init", "theta(0 / l)="+get_angle(0,l) ) ; 
45 * P(0, "init", "theta(-l,0)="+get_angle(-l,0) ) ; 

* P ( 0 , " init " , " theta (-1,-1)=" +get_angle (-1,-1)); 

* P(0, "init" , "theta (0, -1) ="+get_angle (0, -1) ) ; 
***★**★***★★*★* / 



50 
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* Runtime rt = Runtime .get Run time () ; 

* System. err .println ( "init () : Runtime freeMemory is " +rt . f reeMemory ( ) ) ; 

* try { rt .exec ("date") ; } 

* catch ( java. io . IOException e) { System. err .println ( "Runtime IOException: 
"+e. toStringO ) ; } 

* // rt .traceMethodCalls(true) ; 
******★***#★*★★ / 

} // end test 
/* * 

** f ile_dump 
* * 

V 

public void file_dump (File inputFile) { 
int i ; 

String list [] , tName; 
File tFile; 
char separator; 

separator = inputFile . separatorChar ; 
long mod; 

P(0, "f ile_dump" , "pathSeparator= " +inputFile . pathSeparator) ; 

P(0, "file_dump" , " separator="+ input File . separator) ; 

P (0 , " f ile_dump" , "Name="+ input File . getName ( ) ) ; 

P (0 , "f ile_dump" , 11 Parent = " +input File .get Parent () ) ; 

P<0, "file^dump", "isDirectory="+inputFile. isDirectory () ) ; 

list ■ inputFile . list () ; 

P(0, "f ile_dump" , " " +list . length+" entries ..."); 
for (i=0; i< list. length; i++) { 

tName = inputFile . getPath ( ) + separator + list [i] ; 

tFile = new File (tName); 

mod = tFile. lastModif ied() ; 

mod /= 6 0000; 

if (tFile . isDirectory ( ) ) 

P (0 # " f ile_dump" , i+")Dir: "+tName+", last modified "+mod+" min's 

ago") ; 

else 

P (0 # "f ile_dump" , i+")File: "+tName+" / last modified "+mod+" min's 

ago") ; 

} 

return; 

} // end file_dump 
/** 

** calc_angles 
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*/ 

static public void calc_angles () { 
double theta=0; 
int i ; 

double x, y; 

long TS1=0, TS2=0; 

timer. st art _timer (" no thing") ; 
timer .end_timer ("nothing" ) ; 

timer . start_timer ("allocating 10000 doubles"); 

global_angle_array = new double [10000] ; 
timer .end_timer ("allocating 10000 doubles"); 



TS1 = java. lang. System. currentTimeMi 11 is () ; 
TS2 = java. lang. System. currentTimeMill is () ; 

System. err .println( "Time of nothing is " + (TS2 -TS1) +" milliseconds" ) ; 

timer . st art_timer ("get angles") ; 
TS1 = java. lang . System. currentTimeMillis () ; 
for (i=0; i<10000; i++) { 

theta = get_angle ( (double) i, (double) 1 .3) ; 

} 

TS2 = java. lang. System . currentTimeMillis () ; 

System, err. print In ("Time of 10000 get_angle ' s is 11 + (TS2 -TS1 ) +" milliseconds"); 
timer. end_timer ("get angles") ; 

TS1 = java. lang.Sys tern. currentTimeMillis () ; 
for (i=0; i<10000; i++) { 

theta = Math.atan2 ( (double) i f (double) 1.3) ; 

} 

TS2 = java. lang.Sys tern. currentTimeMillis () ; 

System. err . println ( "Time of 10000 atan2 1 s is " + (TS2 -TS1) +" milliseconds"); 



TS1 = java. lang . System. currentTimeMillis () ; 
for (i=0; i<10000; i++) { 

theta = i * (2*Math.PI / 10000.0); 
global_angle_array [i] = Math . sin (theta) ; 

} 

TS2 = java. lang. System . currentTimeMillis () ; 

System, err .println ("Time of 10000 sin(x) calc ' s into array is 11 + (TS2-TS1) +" 
milliseconds") ; 

// Time doing a thousand sine's 
TS1 = java . lang . System. currentTimeMillis () ; 
for (i=0; i<10000; i++) { 

theta = i * (2*Math.PI / 10000.0); 
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x = Math. sin (theta) ; 
if (TS1>TS2) 

y - x; 

} 

5 TS2 s= java. lang. System . currentTimeMillis () ; 

System.err .println ("Time of 10000 sin(x) is "+ (TS2 -TS1 ) +" milliseconds"); 

// Time retrieving a thousand elements 
TS1 = java. lang.System. currentTimeMillis () ; 
10 System.err .println ("Time of printing above " + (TS1-TS2 ) +" milliseconds"); 

TS1 = java. lang. System. currentTimeMill is () ; 
for (i=0; i<10000; i++) { 

theta = i * (2*Math.PI / 10000.0); 
x = global_angle_array [i] ; 
15 if (TS1>TS2) 

y = x; 

} 

TS2 = java. lang. System. currentTimeMill is () ; 

System. err. println ("Time of 10000 elements of global_angle_array is "+(TS2- 
2 0 TS1) +" milliseconds"); 



System, e rr. print In ("global_angle_arr ay [2 0] =" +global_angle_array [2 0] ) ; 
25 System.err .println ( "global_angle_array [120] =" +global_angle_array [120] ) ; 

System.err .println ( "global_angle_array [220] ="+global_angle_array [22 0] ) ; 
} // end calc_angles 

/** 

3 0 ** dump_properties 

* * 

*/ 

public void dump_properties () { 
GlobalUserDir = System. getProperty ( "user . dir" ) ; 
35 GlobalUserHomeDir = System . getProperty ( "user . home" ) ; 

GlobalOSName = System . getProperty { "os . name" ) ; 

System.err .println ( 11 "); 

System. err . println ( " ========================================================= 

4 0 »); 

System. err. println ("version: 11 +Sy stem . getProperty (" j ava . version" ) ) ; 

System. err. print In ( "vendor : 11 +Sy st em. get Pr oper ty ( "java .vendor" ) ) ; 

System. err . println ( "vendor . url : 

" +System . getProperty ( " j ava . vendor . url " ) ) ; 
4 5 System . err . println ("class. version : 

" +System . getProperty ( " j ava . class . version" ) ) ; 

System . err . println ("os. name : " +System . getProperty ( "os . name " ) ) ; 

System. err. print In ("os. arch: , 11 +System. getProperty ("os. arch") ) ; 

System. err . println ( " file . separator : " +System . getProperty ( "file . separator" ) ) ; 
50 System.err .println ( "user .name: " +System. getProperty ( "user .name" ) ) ; 
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10 



15 



System . err . print In ( "user . home : " +System . getProperty ( "user . home " ) ) 

System. err. print In ("user. home: "+GlobalUserHomeDir) ; 

System . err . print In ( "user . dir : " +System . getProperty { "user . dir " ) ) ; 

// System. err. println ( "class . path: »+System. getProperty ( "java . class .path" ) ) ; 
// System. err .println ("path. separator: 

"♦System. getProperty ("path. separator" ) ) ; 
// System. err .println ( "line . separator: 

» +System . getProperty ( "line . separator" ) ) ; 



System. err .println ( "====: 
") ; 

System . err . println ( " " ) ; 



return ; 

} // end dump_properties 



20 

/* ★ 
** clear 
*/ 

public void clear () { 
25 int xl, yl, x2, y2 ; 

graphics .clearRect (0, 0, (f rame . getSize ( ) ) .width, 
(frame .getSize () ) .height) ; 

if ( coordinate s_on) { 

3 0 graphics . setXORMode (color_obj . Light Red) ; 

map(-100, 0,GlobalMapPoint) ; xl = GlobalMapPoint . x; yl » 
Global Map Point . y; 

map (100, 0, GlobalMapPoint) ; x2 = GlobalMapPoint . x; y2 = GlobalMapPoint . y; 
graphics .drawLine (xl, yl, x2 , y2) ; 

35 

map(0, 100 , GlobalMapPoint) ; xl = GlobalMapPoint . x; yl = GlobalMapPoint . y; 
map(0, - 100, GlobalMapPoint ) ; x2 = GlobalMapPoint . x; y2 = 
GlobalMapPoint .y; 

graphics .drawLine (xl, yl, x2, y2) ; 

4 0 graphics . set Paint Mode ( ) ; 

} 

} // end clear 



45 



** amplify_region 



50 */ 
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public void amplify_region (int val) { 

P (0 , "amplify_region n , "Got val="+val+" , no action coded yet . " ) ; 
} // end amplify_region 



/* 

* key_input 

* this handles key input, if key is Enter, then accumulated 

10 * string 1 GUI . key_input_st ring 1 is given to input . string_input ( ) 

*/ 

public void key_input (KeyEvent ke) { 
int key = ke . get Key Code ( ) ; 
String keystring = ke . getKeyText (key) ; 
1 5 char ch = ke . getKeyChar ( ) ; 

P (2 , "key_input" , "Keystring is < " +keystring+" > , KeyChar is <" +ch+" >" ) ; 

if (keystring. equals ("Shift") ) { 
} 

2 0 else if (keystring. equals ("Alt") ) { 

} 

else if (keystring. equals ( "Ctrl") ) { 

} 

else 

2 5 if (keystring. equals ( "Enter" ) ) { 

input . string_input (key_input_string) ; 
if ( !key_input_st ring, equals ("u 11 ) ) { 

lastCommand = key_input_string; 
p ( 11 lastCommand : 11 +lastCommand) ; 

30 } 

key_input_string = " " ; 
status (lastCommand) ; 

} 

// HANDLE PLUS KEY and MINUS KEY plus key minus key 
35 else if ( (ch == '+■) && (key_input_string . equals ("") ) && (lastNode != null)) 

{ 

lastNode .more_mag ( ) ; 
datasea .normalize ( ) ; 

} 

40 else if ( (ch == '-') && (key_input_string .equals ("") ) && (lastNode != null)) 

{ 

dump__node ( 0 , false, lastNode); 
lastNode . less_mag ( ) ; 
datasea . normalize ( ) ; 
4 5 dump_node(0, false, lastNode); 

} 

else if ( keystring. equals ( "Up" ) || keystring . equals ( "Down" ) 

|| keystring. equals ( "Left" ) || keystring. equals ("Right") ) 
arrow_key (keystring) ; 

50 else if ( keystring. equals ( 11 Fl" ) || keystring . equals ( "F2" ) 
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|| keystring. equals ("F3") || keys t r ing . equals ( "F4 » ) 
|| keyst ring. equal s (»F5») || keystring . equals ( "F6" ) ) 
F_key (keystring) ; 
else if ( keystring. equals ( "Backspace" ) ) { 
5 if ( key_input_st ring. equals ( 11 ") ) 

* 

else { 

key_input_string = key_input_s tr ing . substring (0 , - 
l+key_input_string . length ( ) ) ; 
10 ~ } 

} 

else { 

key_input_string = key_input_string+ch; 

} 



15 



} // end key_input 



/** 

** F_key (String) 
20 */ 

public void F_key (String str) { 

if (str.equalsC'Fl") ) { 

P(0,"F_key","Fl: Help:"); 
2 5 help ( ) ; 

} 

if (str.equals("F2») ) { 
if (lastNode == null) 

30 WARNING ( 0 , " F__key 11 , "F2: need a selected 'lastNode' to link to POV") 

else { 

P(0, "F_key" , "F2 : linking POV to " +lastNode . Name) ; 

input . string_input ( 11 show " + lastNode . Name) ; 

} 

35 } 

if (str.equals("F3") ) { 
if (lastNode==null) 

WARNING (0 , M F_key" , "F3: need a selected 'lastNode' to find common 

nodes") ; 
4 0 else { 

P(0, M F_key" , "F3 : stimulate similar nodes to "+lastNode .Name) ; 

datasea . f ind_common_nodes_to (lastNode) ; 

} 

} 

45 if (str. equals ("F4" ) ) { 

P ( 0 , " F_key " , " F4 : change POV" ) ; 
if (lastNode != null) 

datasea. POV - lastNode; 

} 

50 if (str. equals ("F5") ) { 
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P(0, "F_key", "F5: unlink all and link lastNode to POV"); 
solo_link_to_POV() ; 
} 

if (str.equals("F6") ) { 
5 P(0, "F_key" , "F6 : unlink lastNode"); 

if (datasea.POV! =null) 

datasea. POV. unlink_both (lastNode) ; 

else 

WARNING (0, "word_selector" , "Need a POV to work."); 

10 } 



return; 

} // end FJcey 

15 



I * * 

* * solo_link_to_POV 

20 

*/ 

public void solo_link_to_POV ( ) { 
int i ; 

Node a, b, c, d; 

2 5 if (datasea.POV == null) { 

WARNING (0, "solo_link_to_POV" / "Need a POV to work . " ) ; 
if (lastNode != null) 

datasea. show ( lastNode) ; 

return ; 

30 } 

if (lastNode == null) { 

WARNING (0 , "solo_link_to_POV" , "Need a lastNode to work.") ; 
return; 

} 

3 5 stop_thread ( ) ; 

datasea . POV . unlink_all ( ) ; 
datasea. POV. link (lastNode) ; 
datasea. needdist Update = true; 
//if (animation_thread == null) { 

4 0 // run_thread ( ) ; 

// } 
} // end solo_link_to_POV 

/ * * 

4 5 ** ehelp 

*/ 

public void help () { 

P (0, "help" , " n toggles NeighborPressure, 1 toggles lines"); 

P (0, "help" , " 'abs [ ]' magnifies abstractions of a DN, 'back [ ]' mag's 

5 0 backwards to POV, 1 most 1 =create POV and link to greatest mags"); 
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P(0, "help" , " 'ren argl [ ] ^rename, 'link argl [ ]', 'unlink argl [ ]', 'del 
[ ] • =delete node") ; 

P(0,"help"," ' rr|rv' chooses rendering relations or VR # • 1' toggles lines, 
•n' toggles neighbor pressure 'select', ' unselect ' (all) " ) ; 

P(0, "help" , " 'focus [ ]'=make a node the POV, ! le», ' ri ' , 'up', 'do' = 
left, right, up, dovm; 'ttup', 'ttdown' = text_threshold up or down by 0.1"); 

P(0, "help" , "popd,TL, f ,m, n, s , c, x, VR, da|dd=draw CN|DNs") ; 

P(0, "help" , "F4=turn lastNode into POV F5=unlink_all from POV and link 
lastNode to POV F6=unlink lastNode from POV"); 

P (0, "help" , "Fl=help F2=connect lastNode to POV F3=show similar nodes to 
lastNode") ; 

return ; 

} 



/** 

* * shi f t_one_node 

* * 

*/ 

public void shif t_one_node (Node node, String direction) { 
int i, size, dist_diff=l; 
Node child, saved__node=null ; 
double saved_mag; 

if (node == null) 
return ; 

saved_mag = 0; 

if (direction . equalsIgnoreCase ( "distal " ) ) 

dist_diff = 1; 
if (direction . equalsIgnoreCase ( "proximal 11 ) ) 

dist_diff = -1; 



size = node .Links . size () ; 
for (i=0; i<size; i++) { 

child = node . getNodeAtLink (i) ; 

if ( (child. dist == (node . dist+dist_dif f ) ) node! =datasea. Root) { // 
check the direction 

if (child. mag > saved_mag) { // save the biggest candidate 

saved_mag = child. mag; 

saved_node = child; 

} 

} 

} 

if (saved_node != null) { 
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10 



15 



P<0, "shift_one_node" , "direction ' "+direction+" ' , "+lastNode .Name+" -> 
"+saved_node .Name) ; 

last Node - saved_node; 

if (lastNode .mag < Node . MED__MAG) 

lastNode.mag = Node . MED_MAG ; 

} 

} // end shift_one_node 



/* ★ 

** arrow_key (String) 
*/ 

public void arrow_key (String str) { 



if (lastNode != null) { 
if (is_control_down) { 

if (str. equals ("Up") ) 
lastNode. Y += 10; 

2 0 if (str .equals ("Down") ) 

lastNode.Y -= 10; 
if (str .equals ("Right") ) 

lastNode. X += 10; 
if (str. equals ("Left") ) 
25 lastNode. X -= 10; 

P(0, "arrow_key" , " ->For lastNode .Name ="+lastNode .Name +" got "+str+", 
changing node.x|Y"); 
} 

else { 

3 0 if (str. equals ("Up") ) 

shift_one_node (lastNode, "distal") ; 
if (str .equals ("Down") ) 

shift_one_node< lastNode, "proximal") ; 
if (str.equals("Right") ) 

35 

if (str.equalsC'Left") ) 
} 

} 

4 0 else { // no lastNode available 

if (Debug == 2) 

P (2 , "arrow_key" , " ->Got "+str+ " NO lastNode, shifting entire 

screen. ") ; 

if (str.equals("Up") ) 

4 5 WindowYOf f set += 100/magscale ; 

if (str .equals ("Down") ) 

WindowYOf f set -= 100/magscale; 

5 0 if (str. equals ( "Right") ) 
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WindowXOf f set 10 0/magscale; 

if (str .equals ("Left") ) 

WindowXOf f set -= 100/magscale; 

} 

} 

/ * ★ 

** handle_mouse_c licked 

** ©params Node node, the node already determined to be under the 
** Find the nearest node to the cursor. 
V 

public void handle_mouse_c licked (Node node) { 



lastNode = node; 

P (1 , "handle_mouse_c licked" , " is_meta_down= 11 +is_meta_down+ " , 
is_alt_down="+is_alt_down+ is_control_down="+is_control_down+ " , 
is_shif t_down=" +is_shif t_down) ; 

// control keys are down . . . 
if (GUI. control) 

solo_link_to_POV() ; 
else if (GUI. alt) 

action (node) ; 
else if (GUI. shift) 

datasea . vote_branch (null , " + " ) ; 
else if (is_meta_down) // Right mouse button 

datasea . inhibit (node) ; 
else { // Left mouse button 

dump_node ( 0 , false, node ) ; 

; // just set the node as lastNode 

} 

/**************************** 
action (alt) 
POV (ctl) 

vote - (met a . . . Rmouse) 
vote + (shift) 
select (plain) 

*★*************************/ 
datasea .normalize ( ) ; 
return; 

} // end handle_mouse_c licked 
/** 

** mouse_clicked_at 

** ©params int x,y, the cursor position where the mouse is. 
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** Find the nearest node to the cursor. 
*/ 

public Node mouse_clicked_at (int x # int y) { 
Node node=null, tnode=null; 
double tdist, saved_dist = 10000000; 
int i, size; 

// Search through all nodes and find nearest one to where mouse was clicked 
size = datasea .node__vec . size ( ) ; 
for (i=0; i<size; i++) { 
tnode = (Node) datasea. node_vec .element At (i) ; 
if ( (tnode. mag >= Node . SMALL_MAG ) 

ScSl ( ( ! tnode . isURL | | drawURL) 
&& (! tnode. isAN || drawAN) 
&& (! tnode . isFile || drawFile) 
&& (! tnode. isDN || drawDN) ) ) { 

tdist = ( tnode. x-x) * (tnode. x-x) + (tnode . y+tnode . size_Y/ 2- 
y) * (tnode. y+tnode . size_Y/ 2 -y) ; 

if (tdist < saved_dist) { 
saved_dist = tdist; 
node = tnode; 

} 

} 

} 

lastCommand = "Mouse selected ' M +node.Name+" ' , mag="+node .mag+ M , 

d="+node .dist+" , ChldCnt=" +node . ChildCount ; 

handle_mouse_c licked (node) ; 

return (node) ; 

} // end mouse_clicked_at 

/* 

** newFrame instead of Frame 
*/ 

class newFrame extends Frame { 
newFrame (String name) { 

super (name) ; 

enableEvents ( 

AWT E vent . ACT I ON E VENT_MAS K 



// | AWTEvent . ADJUSTMENT_EVENT_MASK 

/ / | AWTEvent . COMPONENT_EVENT_MASK 

// | AWTEvent . CONTAINER_EVENT_MASK 

// | AWTEvent . FOCUS_EVENT_MASK 

// | AWTEvent . I TEM_EVENT_MASK 

| AWTEvent . KEY_EVENT_MASK 

| AWTEvent . MOUS E_EVENT_MAS K 

| AWTEvent . MOUS E_M0T I ON_E VENT_MAS K 

// | AWTEvent . TEXT_EVENT_MASK 

// | AWTEvent . WINDOW_EVENT_MASK 
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// Odd, I can't get KE Y_P RE S S ED events from newFrame • s processEvent , even with 
KEY_EVENT_MASK on 

public void processEvent (AWTEvent event) { // newFrame 
int y; 
Node tn; 



if (event .get ID () «» MouseEvent . MOUSE_MOVED) { 
// ALL THIS IS TO GET COORDINATES OF MOUSE 
x =( (MouseEvent) event) .getXO ; 
y =( (MouseEvent) event) .getY() ; 
GUI .mouseX=x; 
GUI .mouseY=y ; 
x - = WindowXcenter ; 
y -= WindowYcenter; 
x /= magscale; 
y / - magscale; 
x += WindowXOf f set ; 
y -= WindowYOf f set ; 
GUI . spaceX=x; 
GUI . spaceY=-y ; 
if (Debug «= 4) 

P (4 , "processEvent .newFrame" , 

" (newFrame ) event = 1 " + event . paramString ( ) + 

"■, X="+ ( (MouseEvent) event) .getX() + 

", id="+event .getlDO ) ; 

} 

// How to determine if it's a MouseEvent or WindowEvent? 

// Resizing the window apparently sends resize message to a button, 

// and the button becomes the size of the window. 

/*****★*************★************************************* 

** if (event .get ID () != MouseEvent .MOUSE__MOVED) { 

** P (0, "processEvent .newFrame" , "toSt ring ()=" +event . toSt ring () ) ; 

** p (0 , "processEvent .newFrame" , "paramString ()=" +e vent . paramString () ) ; 

** p(0, "processEvent .newFrame" , "getID { ) =" +event . getID ( ) ) ; 



* * 


} 








* ★ 


if ( 








* * 


(event 


getlDO 


! = 


WindowEvent . WINDOW_ACTIVATED ) 


* * 


(event 


get ID () 


! = 


WindowEvent . W I NDOW_DE ACTIVATED ) && 


★ * 


(event 


getlDO 


i = 


WindowEvent .WINDOW_C LOSING) && 


* ★ 


( event 


getlDO 


! = 


WindowEvent . WINDOW_CLOSED ) && 


** 


( event 


getlDO 




WindowEvent . WINDOW_OPENED ) 


★ * 


(event 


.getlDO 




WindowEvent .WINDOW_CLOS ED) && 


* * 


( event 


.getlDO 




WindowEvent . WINDOW_ICONIFI ED) && 


* * 


( event 


.getlDO 




WindowEvent . WINDOW_DEICONIFIED) 


* * 


) 









*************************************************************/ 
{ // THIS IS NEVER RUN . . . 
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is_meta_down = ( (InputEvent) event) . isMetaDown ( ) ; 

is_alt_down = ( (InputEvent) event) . isAltDown ( ) ; 

is_control_down = ( (InputEvent ) event) . isControlDown ( ) ; 
if (is_control_down) 

5 System. out .print In ( 11 is_control_down 

xxxx" ) ; 

is_shift_down = ( (InputEvent) event) . isShif tDown ( ) ; 
GUI . me t a = i s_me t a_down ; 
GUI. alt = is_alt_down; 
10 GUI . shift = is_shift_down; 

GUI. control = is_control_down; 
if (is_control_down) 

P(0, "newFrame .processEvent" , "Control down! ! ! ") ; 

} 

15 if (Debug==4) { 

if ( i s_me t a_down ) 

P(0, " newFrame. pr oce s s Event " , "Met a down! ! ! " ) ; 
if (is_alt_down) 

P(0, " newFrame. proce s sEvent " , "Alt down! ! ! ") ; 

2 0 i f ( i s_cont r ol_down ) 

P(0, "newFrame .processEvent" , "Control down! ! ! " ) ; 
if (is_shif t_down) 

P (0, "newFrame .processEvent" , "Shift down! ! !") ; 

} 

25 // - 

// -- - 

if (event. getlDO == MouseEvent .MOUSE_CLICKED) 
{ 

tn=mouse_clicked_at(GUI.spaceX, GUI . spaceY) ; // I draw Y increasing 

3 0 going up 

} 

} // End method processEvent ( ) 
} // End class newFrame 

3 5 class newButton extends Button { 

String original_name ; 



newButton (String name) { 
super (name) ; 

4 0 original_name = name; // Set original name 

enableEvents ( 

AWTEvent . ACTION_EVENT_MASK 
| AWTEvent . AD JUSTMENT_EVENT_MASK 
| AWTEvent . COMPONENT_EVENT_MASK 
45 | AWTEvent . CONTAINER_EVENT_MASK 

| AWTEvent . FOCUS_EVENT_MASK 
| AWTEvent . ITEM_EVENT_MASK 
| AWTEvent . KE Y_EVENT_MAS K 
| AWTEvent . MOUS E_E VENT__MAS K 

5 0 | AWTEvent . MOUS E_MOT 1 0N_E VENT_MAS K 
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10 



| AWTEvent . TEXT_EVENT_MASK 
// | AWTEvent .WINDOW_EVENT_MASK 

) ; 



} 



public void processEvent (AWTEvent event) { // newButton 
long TS = 0; 
Button b,bb; 
double val; 



if (Debug==4) 

P (4 , "processEvent . newButton" , 

11 (newButton ) event= ' " +event .paramString ( ) + 
15 id="+event .getlDO ) ; 



if (event .get ID () == Key Event . KEY_PRESSED) { 
KeyEvent keyevent = ( KeyEvent ) event ; 
2 0 int key = keyevent .get KeyCode () ; 

String keystring - keyevent . get KeyText (key) ; 
char ch = keyevent . getKeyChar ( ) ; 
key_input (keyevent) ; 

// HERE 

2 5 / / System . out . println ( " PRESSED keystring (" +keystring+" ) keycode (" +key+" ) 

keyevent ( " 

// +event . toString ()+")"); 

if (key == 16) 

is_shif t_down = true; 

3 0 if (key == 17) 

is_control_down = true; 
if (key == 18) 

is_alt_down = true; 

} 

35 if (event .get ID () == KeyEvent . KEY_RE LEAS ED) { 

KeyEvent keyevent = ( KeyEvent ) event ; 
int key = keyevent . getKeyCode ( ) ; 
String keystring = keyevent . get KeyText (key) ; 
char ch = keyevent . getKeyChar ( ) ; 

4 0 //key_input (keyevent) ; DON'T DO IT ON KEY__RELEASED , IT 

SCREWS UP INPUT 
// HERE 

//System. out . println ( "RELEASED keystring ( 11 +keystring+" ) keycode ( "+key+") 
keyevent ( " 

4 5 // +event. toString () +")") ; 

if (key == 16) 

is_shif t_down = false; 
if (key == 17) 

is_control_ down = false; 

5 0 if (key == 18) 
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is_alt_down = false; 

} 

if (event .get ID () == MouseEvent .MOUSE_CLICKED) { 
TS = java. lang. System . currentTimeMillis () ; 
5 boolean is_meta_down = ( (Input Event) event) . isMetaDown () ; 

if ( i s_me t a_do wn ) 
if (Debug==4 ) 

P(4, "newButton.processEvent" , "Meta down! ! ! " ) ; 

10 if (this == button_animate) { 

debug_animation_thread(l, "buttons" , 
"this==button_animate" ) ; 

if (animation_thread == null) { 
1 5 run_thread ( ) ; 

} else { 
stop_thread ( ) ; 

} 

} 

2 0 if (this == button_j5resParent) 

{ 

force . calcParentPressure = ! force . calcParentPressure ; 
graphics . setColor (Color . red) ; 
this . set Label ( "Parent pres 1 =" +f orce . calcParentPressure) ; 

2 5 if (force . calcParentPressure) 

but tonjpres Parent . setBackground (color_obj .LightRed) ; 

else 

button__pres Parent . setBackground (color_obj .LightGrey) ; 

} 

30 if (this == button_presPOV) 

{ 

force . calcPOVPressure = ! force . calcPOVPressure ; 
graphics . setColor (Color .blue) ; 
this . setLabel ( "POV="+f orce .calcPOVPressure) ; 

3 5 if (force . calcPOVPressure) 

but ton_j?resPOV. setBackground (color_obj .LightRed) ; 

else 

but ton_presPOV. set Background (color_obj .LightGrey) ; 

} 

4 0 if (this == button_presNeighbors) 

{ 

force . calcNeighborPressure = ! force . calcNeighborPressure ; 
// graphics . setColor (Color .green) ; 
this . setLabel ( "Nbr="+f orce . calcNeighborPressure) ; 
4 5 if (force . calcNeighborPressure) 

button_presNeighbors . setBackground (col or_obj .LightRed) ; 

else 

but t on_pr e sNe ighbor s . set Background (col or_obj .LightGrey) ; 

} 

50 if (this == button_presNoise) 
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{ 

force . calcNoise - ! force . calcNoise ; 
this . setLabel ( ,r Noise="+force . calcNoise) ; 

} 

if (this == button_increase_mag) { 

} 

if (this == button_drawText) { 

mode_ob j . toggle_draw__text ( ) ; 
} 

if (this == button_absorb_POV) { 
datasea .absorb_POV (false) ; 

} 

if (this == button_postprocessor) { 
datasea. Postprocessor () ; 

} 

if (this == but ton_more_at tract ion) { 

va 1 =dat as ea .more_at tract ion ( is_meta_down) ; 
this . setLabel ( "Mag Scale=" +val) ; 

} 

if (this == button_more_repulsion) { 

val=datasea .more_repulsion (is_meta_down) ; 

this . setLabel ( " ThetaMlt = " +val ) ; 

} 

if (this == button_lines) { 

mode_obj . toggle_lines_mode ( ) ; 
} 

if (this == button_drawCN) { 
drawCN = idrawCN; 
thi s . setLabel ( " CN= " +drawCN) ; 

} 

if (this == button_drawDN) { 
drawDN = IdrawDN; 
this . setLabel ( "DN=" +drawDN) ; 
} 

// First time, create Dialog window. Subsequently create new node 

if (this == button_background_color) { // SPREADING MODE 
color_ob j . background_color__index++ ; 

if (color_obj . background_color_index >= color__obj . MAX_BACKGROUND_COLORS) 

color_obj .background_color_index=0 ; 
frame . setBackground (color_obj . background_color_array [color__obj . background 
_color_index] ) ; 

show_buttons () ; 
} 

if (this == button_position) { // POSITIONING MODE 
mode_obj . toggle_position_mode ( ) ; 

) 

if (this == button_render) { // RENDERING MODE 
mode_ob j . toggle_render_mode ( ) ; 
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} 

if (this == button_potentiation) { // POTENTIATION MODE 
mode_obj . toggle_do_potentiation ( ) ; 

} 

5 if (this == button_Dump) { 

recursion_depth=0 ; 
dump_nodes (0, datasea . Root) ; // arg is 

debug_value 

10 // dump__node ( 0 , Myself); // arg is debug_value 

} 

if (this == button_Debug) { 

// See if left or right button is pressed 
15 if (is_meta_down) 

Debug - - ; 

else 

Debug ++; 

2 0 // Set max/min for Debug 

if (Debug > 5) 

Debug = 5; 
if (Debug < -1) 

Debug = -1; 

2 5 this, set Label ( "Debug= " +Debug) ; 

} 

if (this == buttonjStop) { 
quit ( ) ; 

30 } 

} 

super .processEvent (event) ; 

} 

} // class NewButton 



35 



* * 



*/ 

class MyDialog extends Dialog { 
4 0 TextField text ; 

public MyDialog (Frame f, String t) { 
super (f , t) ; 
setSize(200, 100) ; 

text = new TextField ( "Hi, MyDialog creation.", 150); 
45 } 
} 



public void quit () { 
5 0 try { java. lang. System. exit (0) ; } 
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catch (Security-Exception e) { ; } 
} // end quit 

* 
* 

*/ 

void add_buttons () { 
int x=80, y=20; 

int i = 0; 

frame . add (button_animate = new newButton ( " Start " ) ) ; 
button_animate . setBackground (color_obj . LightGrey) ; 
button_animate . setForeground (Color . black) ; 
button_animate . setLocation (90*i, 3 0) ; 
button_animate . setSize (x, y) ; 
button animate. setvisible (true) ; 



i + + ; 

f rame. add (butt on_S top = new newButton ( "EXIT" )) ; 
button_Stop . setBackground (Color . pink) ; 
button_Stop . setForeground (Color . black) ; 
button_Stop. setLocation ( 90* i, 30) ; 
button_Stop . setSize (x, y) ; 
button_Stop . setvisible (true) ; 



i++; 

frame . add (button_Debug = new newButton ( "Debug=" +Debug+" " ) ) ; 
but ton_Debug. set Background (color_obj .LightGrey) ; 
button_Debug . setForeground (Color .black) ; 
but ton_Debug. set Location (90*i, 30) ; 
button_Debug . setSize (x, y) ; 
button_Debug. setvisible (true) ; 

i++; 

frame .add (butt on_render = new newButton ( "Node Rendering")); 
button__render . setBackground (color_obj . LightGrey) ; 
button_render . setForeground (Color .black) ; 
// button_render . setLocation ( 90*i , 30); 

button_render. setSize (x,y) ; 
button render . setvisible (true) ; 



i++ ; 

frame. add ( butt on_background_color = new newButton ( "Background Colors")) 
button_background_color. setBackground (color__obj .LightGrey) ; 
button_background_color . setForeground (Color .black) ; 
but t on_background_color . setLocation (90*i, 30) ; 
button_background_color . setSize (x+30, y) ; 
button_background_color . setvisible (true) ; 
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f rame . add (buttonjposition = new newButton ( " Pos ' " ) ) ; 
but ton_pos it ion. set Background (color_obj .LightGrey) ; 
button__position. set Foreground (Color .black) ; 
5 buttonjposition. setLocation (90*i, 30); 

button_position . setSize (x, y) ; 
button_position. setvisible (true) ; 
i++; 

f rame . add ( butt on_potentiat ion = new newButton ( 11 Pot 
10 " +mode_ob j . do_potent iat ion) ) ; 

if (mode_obj .do_potentiation) 

button_potentiation. setBackground (color_obj .LightRed) ; 

else 

button_potentiation . setBackground (color_ob j . LightGrey) ; 
15 button__potentiation. setForeground (Color .black) ; 

button__potentiation. setLocation (90* i, 30) ; 
button_potentiation. setSize (x, y) ; 
button_potent iat ion. setvisible (false) ; 
i++ ; 

2 0 f rame . add (butt on_Dump = new newButton (" Dump Nodes ")); 

/ /but ton_Dump . setBackground (new Color (Oxffbbbb) ) ; 
but ton_Dump . setBackground (color_obj .LightGrey) ; 
button_Dump. set Foreground (Color . black) ; 
but t on_Dump . setLocation (90* i, 30) ; 

2 5 button_Dump . setSize (x, y) ; 

button_Dump . setvisible (false) ; 

frame .add (check = new Checkbox ("Che ckBox .")) ; 

check. setvisible (false) ; 

30 

i = 0; 

f rame .add (butt on_drawText = new newButton (" Inhibit Text")); 
if (drawText) 

button_drawText . setBackground (color__obj .LightRed) ; 

3 5 else 

button_drawText . setBackground (color_obj . LightGrey) ; 
button_drawText . set Foreground (Color .black) ; 
butt on_drawText . setLocation (90* i, 60) ; 
button_drawText . setSize (x, y) ; 

4 0 button_drawText . setvisible (true) ; 

i++; 

frame . add (button_lines = new newButton ( " Lines= " ) ) ; 

button_lines . setBackground (color_obj . LightGrey) ; 
4 5 button_lines . setForeground (Color .black) ; 

button_lines . setLocation (90*i, 60) ; 
button_lines . setSize (x, y) ; 
button_lines . setvisible (true) ; 
i++; 
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frame . add ( but ton_pres Parent = new newButton ( " Parent 
Pressure="+f orce . calcParent Pressure) ) ; 
if (force . calcParentPressure) 

button__presParent . set Background (color_obj . LightRed) ; 

5 else 

but ton_pres Parent . setBackground (color_obj .LightGrey) ; 
buttonjpre s Parent . set Location (90* i, 60) ; 
but tonjpres Parent . set Foreground (Color .black) ; 
but ton_pres Parent . setSize (x, y) ; 
1 0 but ton__pres Parent . setvisible (true) ; 

i++; 

f rame . add (butt on_j>resP0V = new newButton ( 11 POV="+f orce . calcPOVPressure) ) 
if (force . calcPOVPressure) 

but ton_presPOV. setBackground (color_obj .LightRed) ; 

15 else 

but ton_jpresPOV. setBackground (col or_obj .LightGrey) ; 
button_presPOV. setForeground (Color . black) ; 
butt on_presPOV. set Location (90* i, 60) ; 
but ton_pres POV. setSize <x, y) ; 
2 0 button_presPOV. setvisible (true) ; 

i++; 

f rame . add (butt on_presNeighbors = new 
newButton (" Neighbor Pressure=" +f orce . calcNeighborPressure) ) ; 
if (force . calcNeighborPressure) 

2 5 button_j?resNeighbors . setBackground (col or_obj . LightRed) ; 

else 

button_presNeighbors . setBackground (color_obj . LightGrey) ; 
button_presNeighbors . setForeground (Color .black) ; 
button_presNeighbors . setLocation (90*i, 60) ; 

3 0 button__presNeighbors . setSize (x, y) ; 

button_presNeighbors . setvisible (true) ; 
/***************★***************★********* 

** i++; 

** f rame . add (button_drawCN = new newButton ( "CN=" +drawCN) ) ; 

3 5 ** but t on_dr awCN . setBackground (col or_obj . LightGrey) ; 

** but ton_drawCN. setForeground (Color .black) ; 

** but ton_drawCN. set Location (90* i - 65, 60); 

** button_drawCN . setSize (x/2 , y) ; 

** button_drawCN . setvisible ( false) ; 

4 0 ** i++; 

** f rame . add (butt on_drawDN = new newButton ( "DN=" +drawDN) ) ; 

** button_drawDN . setBackground (col or_obj . LightGrey) ; 

** but t on_drawDN . setForeground (Color .black) ; 

** button_drawDN. set Location (90* (i-1) , 60) ; 

4 5 ** button_drawDN. setSize (x/2 ,y) ; 

** but ton_drawDN. setvisible (false) ; 

** f rame . add (butt on_absorb_POV = new newButton ( "Absorb POV" ) ) ; 

* * button_absorb_POV . setBackground ( color_ob j . LightGrey) ; 

** button_absorb_POV. setForeground (Color .black) ; 

50 ** button absorb POV. setLocation (90*i / 60); 
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** but ton_absorb_POV. setSize (x, y) ; 

** but ton__absorb_POV. set Visible (false) ; 

********************************************************************* 
********************************************************************* 

** i++; 

** frame. add (but tonj>ostprocessor ~ new newButton ( "Postprocessor" ) ) 

* * button_postprocessor . setBackground (color_obj . LightGrey) ; 
** button__postprocessor . setForeground (Color .black) ; 

** button_postprocessor. setLocation (90* i, 60); 

** button_postprocessor . setSize (x, y) ; 

** button_postprocessor . setvisible (false) ; 

** i++; 

** frame . add (button_reset = new newButton ( "Reset ") ) ; 

** button_reset . set Background (color_obj . LightGrey) ; 

* * button_reset . setForeground (Color . black) ; 
** button_reset . setLocation (90*i , 60); 

** button_reset . setSize (x, y) ; 

** button_reset . setvisible (false) ; 

** i++; 

* * frame . add (button_populate = new newButton ( " Populate . " ) ) ; 
** button_populate . setBackground (color_ob j . LightGrey) ; 

** but ton_popul at e . setForeground (Color .black) ; 

** butt on_populate. setLocation (90*i, 60); 

** button_populate . setSize (x, y) ; 

** button_populate . setvisible (false) ; 

** i++; 

*********************************************************************** 

******* ****************** ******************** ************************** 

** frame . add ( but ton_more_at tract ion - new newButton ( " Screen Mag . " ) ) 

** but ton_more_at tract ion. setBackground (color_obj . LightGrey) ; 

** but ton_more_at tract ion. setForeground (Color .black) ; 

** but ton_more_at traction. setLocation (90*1, 30); 

** button_more_attraction. setSize (x, y) ; 

** but t on jnore_at tract ion. setvisible (false) ; 

** i++; 

* * frame . add (button_more_repulsion = new newButton ( "ThetaMlt 11 ) ) ; 

* * button_more_repulsion . setBackground (color_ob j . LightGrey) ; 
** button_more_repulsion. setForeground (Color .black) ; 

** but ton_more_repuls ion. setLocation (90* i, 30); 

** button_more_repulsion. setSize (x, y) ; 

** but ton_more_repuls ion . setvisible ( false) ; 

** i++; 

*********************************************************************** 
*********************************************************************** 

** i++; 

** f rame . add (butt on_presNoise = new 
newButton ( "Noise="+f orce .calcNoise) ) ; 

** button_presNoise . setBackground (color_obj . LightGrey) ; 

** but t on_pr e sNoi se . setForeground (Color .black) ; 

** button_presNoise . setLocation (90* i, 90); 
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** button_presNoise . setSize (x, y) ; 

** button_j>resNoise . setvisible (false) ; 

*********************************************************************/ 



mode_obj . set_mode_buttons () , 



/** 

** show_buttons 
* * 

*/ 

public void show_buttons () { 
System .err. print In ( " show_buttons . " ) ; 

button_animate . set Background (color_obj . LightGrey) ; 

button_animate . setForeground (Color .black) ; 

button_Debug. setBackground (color_obj .LightGrey) ; 

button_Debug . setForeground (Color .black) ; 

button_render. setBackground (color_obj .LightGrey) ; 

button_render . setForeground (Color . black) ; 

button_background_color. setBackground (color_obj .LightGrey) ; 
button_background_color . setForeground (Color .black) ; 
button_Stop . setBackground (color_obj . LightGrey) ; 
button_Stop . setForeground (Color .black) ; 
button_drawText . setBackground (color_obj . LightGrey) ; 
button_drawText . setForeground (Color . black) ; 
button_lines . setBackground (col or_obj . LightGrey) ; 
button_lines . setForeground (Color . black) ; 
button_pres Parent . setBackground (color_obj . LightGrey) ; 
but ton__pres Parent . setForeground (Color . black) ; 
but ton_presPOV. setBackground (color_obj .LightGrey) ; 
but ton_presPOV. setForeground (Color .black) ; 
button_presNeighbors . setBackground (color_obj . LightGrey) ; 
button_presNeighbors . setForeground (Color .black) ; 
} // end show_buttons 



/* 

* map returns a Point in screen coordinates for rendering, considering 

* WindowOf f sets and magscale 

*/ 

public void map (int x, int y, Point MapPoint) { 
map ( (double) x, (double) y, MapPoint) ; 
return ; 

} 

public void map (double x, double y, Point MapPoint) { 

double tx, ty; 

double temp_x=0 / temp_y=0 ; 
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tx = x - WindowXOf f set ; 
tx *= magscale; 
tx += WindowXcenter ; 
ty = y - WindowYOf f set ; 
ty *- magscale; 

ty = WindowYcenter - ty; // Y IS FLIPPED 

// Now we have normal coordinates, consider TinyFlag 

// get diff with embedded -universe node (e.g. TimeLine) , compress and add back 
to TL.x's 

// if (TinyFlag && globalDoTiny) 

/*********************************************************** 
if (TinyFlag) { 

if (TinyPoint != null) { 



temp__x = tx-TinyPoint .x; 

temp_y = ty-TinyPoint .y; 

temp_x *= TinyScale; 

temp_y *= TinyScale; 

tx = TinyPoint. x + temp_x; 

ty = TinyPoint. y + temp_y; 

} 




if (FlipAxes) { 



MapPoint . y 
MapPoint . x 
} 



(int) tx; 
(int)ty; 



else { 



MapPoint . x 
MapPoint . y 
} 



(int)tx; 
(int)ty; 



return; 

} // end map 



/* 



* * 



void clear_Tdist (Node parent) { 
Node tnode; 
int i # size; 



size = datasea.node_vec . size () ; 
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for (i=0; i<size; i++) { 

tnode = (Node) datasea . node_vec . element At ( i) ; 
tnode . Tdist = -1 ; 

} 

return; 

} // end clear_Tdist 

/* 

★ ★ 

* 
* 

void clear_dist (Node parent) { 
Node tnode; 
int i, size; 

size = datasea .node^vec . size () ; 
for (i=0; i<size; i++) { 

tnode = (Node ) datasea . node_vec . element At ( i ) ; 

tnode. dist - -1; 

} 

return; 

} // end clear_dist 

*********************************************** / 
/* 

* VRyes simple function to return whether to use VR mode or heirarchical 
mode 

*/ 

static boolean VRyes (Node node) { // position this parent's children 
boolean node_yes=f alse ; 

if (node == null) { 

ERROR (0, "VRyes" , "Null node passed to me."); 

return (false) ; 

} 

if ((node.X != 0) || (node.Y != 0)) 

node_yes = true; 
else if (node == datasea. POV) 

node_yes = true; 

if (node. VRyes || (mode_obj . render_mode . equals { "VR" ) && node_yes) ) 
return (true) ; 

else 

return (false) ; 
} // end VRyes 



** draw_global_str 

# * 

V 

public void draw__global_str () { 
int i ; 

Color current_color=null ; 

// DRAW GLOBAL STRING IF AVAILABLE 

if (global_str_size > 0) 

{ 

current_color = graphics . getColor ( ) ; 
graphics . setColor (color_obj . LightGrey) ; 
graphics . setColor (Color . black) ; 

// Limit printed results to 4 0 lines, else can get horrible slow 
global_st resize = (global_str_size>40) ? 40 : global_str_size ; 
for (i=0; i<global_st resize; i++) { 

if (global_str [i] != null) 

graphics .drawstring ( global_str [i] , 30,350+11*1 ); 

else 

ERROR ( 0 , "draw_global_str", "NULL node global_str [ " +i+" ] " ) 

} 

graphics . setColor (current_color) ; 

} 

} // end draw_global_str 
/** 

** clear_status 

* * 

*/ 

public void clear_status () { 
int i ; 

StatusLine [0] = " 

for (i=0; i<15; i++) 

StatusLine [i] = " " ; 
} // end clear_status 

** draw_status 
** 

*/ 

public void draw_status () { 
int i; 

Color current_color=null; 
// DRAW STATUS LINE STRING 
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current_color = graphics .getColor ( j ; 
//graphics . set Color (col or_obj . Light Blue) ; 
graphics . setColor (Color .black) ; 



5 graphics .drawstring ( "nodes drawn: 11 +counter_of_positioned_nodes , 10, 68); 

graphics . drawstring ( " frame : "+drawing__counter++, 20, 80); 

graphics .drawstring ( "prior command:", 10,90); 
graphics .drawstring ("<"+ last Command+"> 11 , 20, 102); 
10 graphics .drawstring ( "current command:", 10, 114); 

graphics .drawstring (key_input_string, 20, 126); 

graphics . drawstring ( "Command History:", 10, 150); 

15 for (i=0; i<15; i++) { 

if ( ! StatusLine [i] . equals ( " " ) ) 

draw_string (StatusLine [i] , 20, 160+12*i) ; 
//graphics .drawstring ( StatusLine [i] , 20, 160+12*i) ,- 

} 

2 0 graphics . setColor (current_color) ; 

return ; 

} // end draw_status 

25 /* 
* 

*/ 

synchronized float position_start (Node parent) { 

3 0 if (parent == null) 

return (-1) ; 

if (DataSea . needdistUpdate) { 

datasea. set_dist_start (parent) ; 
35 datasea. set_ChildNum_s tart ( (Node) null, parent, datasea . theta_org) ; //false 

for theta_org_f lag 

datasea. needdistUpdate = false; 

> 

4 0 position_recursive ( (Node) null, parent); // POSITION 

return ( 0 ) ; 

} // end posit ion_start (a simple function calling recursive fns) 

45 

/** 

** rescale 
* * 

*/ 

5 0 public void rescale (String crad) { 
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int i, size; 
Node node; 
Node child; 

double new_magscale, magdif; 



if (cmd. equal slgnoreCase ( "clear" ) ) { 

max_x = 20; // we want to always include the (0,0) cross-hairs 
min_x = -20; 
max_y = 20; 
min_y = -20; 

count er_of_j?os it ioned_nodes = 0; 

} 

else if (cmd. equal slgnoreCase ( "run" ) ) { 
double range_x - max_x - min_x; 
double range_y = max_y - min_y; 
double magx, magy; 



WindowWidth=f rame .getSize ( ) .width; 
WindowHeight= frame .get Size ( ) .height ; 
WindowXcenter = WindowWidth/2 ; 
WindowYcenter = WindowHeight/2 ; 



magx - WindowWidth/range_x; 
magy = WindowHeight/range_y ; 
new_magscale = (magx<magy) ? magx : magy; 
// Slowly change offsets . . . 

WindowXOf f set += (int) (0 .2* ( ( (min_x + max_x) /2 .0) -WindowXOf f set) ) ; 
WindowYOf f set += (int) (0 . 2* ( ( (min_y + max_y) /2 . 0) -WindowYOf f set) ) ; 
new_magscale *= 0.75; // Show all the edges 

// Now, slowly change magscale 

magdif = (new_magscale -magscale) ; 

if (magdif > 0.5) // don't allow it to zoom- in quickly 

magdif = 0.5; 

if (magdif < -1.60) // allow it to pull back quickly 

magdif = -1.60; 
magscale += magdif; 

/************************************************************************ 
P ( 1 , " rescale , run" , "min_x ( " +min_x+ " ) , max_x ( " +max_x+ " ) , magx= " +magx+ " , magscale 

= "+magscale+" , WindowXOf f set = "+WindowXOff set) ; 
P (1, "rescale, run" , "min_y ( "+min_y+" ) , max_y ( " +max_y+ 11 ) , magy = " +magy + " , magscale 

= ,, +magscale+" , WindowYOf f set = "+WindowYOf f set) ; 

P ( 1 , " rescale , run" , " WindowXcenter = " +WindowXcenter+ " , Y= " +WindowYcenter ) ; 
********************************************* 

} 



} // end rescale 
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j * * 

** random I have a feeling the seed is being reused ... 9/99 no, not true 

★ ★ 

*/ 

static public double random () { 

//return (Math. random () + ( (double) (java.lang. System. currentTimeMillis () ) % 

10.0)/10.0) ; 

return (Math . random ( ) ) ; 

} // end random 

I * * 

** flash 

* * 

*/ 

public void flash (Node node) { 

double x=random() , y=random() ; 
Point TempPoint =new Point (); 
Color current_color=null; 

if ( ! datasea .gui .global_ok_to_draw) 
return; 

if (node==null) 
return ; 

node . isSelected = true; 
show_node_once (node) ; 
node . isSelected = false; 
sleep (30) ; 

/******************************************************★* 
x += node.x; 
y += node.y; 
map(x,y, TempPoint) ; 

graphics . setXORMode (Color . green) ; 
//current_color = graphics .getColor () ; 
//graphics . setColor (Color . red) ; 

graphics . drawLine (TempPoint . x, TempPoint . y , TempPoint . x+2 , TempPoint . y) ; // draw 
a fake chromosome 

//graphics . setColor (current_color) ; 
graphics . setPaintMode ( ) ; 

*******************************************************/ 



} // end flash 



/** 

* * OKtoRenderRecursive 

* * 

*/ 

public boolean OKtoRenderRecursive (Node parent, Node child) { 
boolean continue_f lag=f alse ; 

if (GUI .mode_obj . posit ion_mode . equals ( "Lvls" ) || 
GUI .mode_obj . posit ion_mode . equals ("Grid") ) 
return (true) ; 

if (parent == datasea.POV) 

return (true) ; 
if (child == datasea.POV) 

return (true) ; 
if (child. dist <= 4) 

return (true) ; 

// Make sure we should render child, based on dist, then recurse 
if (child == null) { 

WARNING (0, "GUI .OKtoRenderRecursive" , "NULL CHILD, RETURNING. 
parent=" +parent . Name+" (dist=" 

+parent .dist+") , child="+child.Name+" (dist= n +child .dist+" ) ") ; 

return (false) ; 

} 

// Don't draw more than once per ' paint () 1 
if (child. drawnTS == current__TS) { 
return (false) ; 

} 

else 

child. drawnTS = current_TS; 

if (child. dist == -1) { // We'll never see this or its children if its not 
linked to POV 

return (false) ; 

} 

if (child. isEvent && drawEvent) 

continue_f lag |= true; 
if (child. isCN && drawCN) 

continue_f lag |= true; 
if (child. isAN && drawAN) 

continue_f lag | = true ; 
if (child. isON && drawON) 

continue_f lag |= true; 
if (child. isDN && drawDN) 

continue_f lag |= true; 
if (child. isFile && drawFile) 
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continue_f lag |= true; 
if (child. isURL && drawURL) 
continue_f lag |= true; 

if ( ! continue_f lag) 

return (false) ; 

if (child. mag < relations_threshold && ! child. isSelected) { 
return (false) ; 

} 

if (parent != null && child. isPOV) { // Don't draw towards a POV 
return (false) ; 

} 

if ((parent != null) && (child == datasea.Root ) ) {// don't draw Root as 
anyone • s child 

return (false) ; 

} 

return (true) ; 

} // end OKtoRenderRecursive 



/* 
* 

*/ 

float render_start (Node parent) { 

if (parent == null) 
return ( -1) ; 

clear () ; 

graphics . setColor (color_obj . LightGrey) ; 
if (global_str_size > 0) 

draw_global_str ( ) ; 
draw_status () ; 

render_recursive (null , parent); // DRAW 
return (0) ; 

} // end render_start (a simple function calling recursive fns) 
/* 

* render_recursive checks VRyes (child) and calls rendering fn's, then 
recurses 
*/ 

public void render_recursive (Node parent, Node child) { // 
int i, size; 

Node grand_child, CNode; 
Point ChildPoint=new Point (); 
doub 1 e pr ior_max_mag = 0 ; 
boolean PolOK = false; 
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boolean OK=true; 

OK = OKtoRenderRecursive (parent , child); 

if (quick && !OK) { 
return ; 

} 

// temp override 

color_obj . set_color_f rom_TS (graphics, child) ; 

render_node (parent , child, false); 
/************************************************************** 

if (xor) 

graphics . setXORMode (Color . white) ; 

else 

if (child. isSelected == true) 

graphics . setColor (Color . red) ; 

else 

color_obj . set_color_from_mag (graphics, child) ; 
******************************** *****************************/ 

// MAKE RECURSIVE CALLS ON CHILDREN 
size = child. Links. size () ; 

for (i=0; i<size; i++) { // check dist of all children, position if appropriate 

// This is dumb, but I have trouble control ing threads and synchronizing blocks 
/**************************************************************/ 

if (child == null) // bad synchronization between rendering and linking 

threads 

break; 

if (i >= child. Links. size () ) // bad synchronization between rendering and 
linking threads 

break; 

/******************************************★* 
grand_child = child. getNodeAtLink (i) ; 

// 4/29/2000 

if (grand_child == null) 
cont inue ; 

if (OK) { // don't draw if not OK, but do recurse nonetheless 

// 4/29/2000 

if (quick) { 

if (grand_child.mag < Node . MED_MAG && child. mag < Node . MED_MAG ) { 
//System. out .print (" R [ " +grand_child . Name+" ] " ) ; 
cont inue ; 

} 

} 
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// See if we should render link-modulating CN's 
if (drawCN) { 

CNode = child. getCNodeAtLink (i) ; 
if (CNode != null) { 

//P(2, "render_recursive" , 

// »["+i+"] CNode of "+child.Name+" to " +grand_child .Name+" 

is " +CNode . Name ) ; 

render_node (child, CNode, false); 
} 

} 

} // if OK 

if <grand__chi Id. has Large rDist Than (child) ) { // recurse regardless of OK 
render_recursive (child, grand_child) ; 

} 

} // for i 
return; 

} // end render_re cursive 



/* 
* 

V 

void position_recursive (Node parent, Node child) { // position this parent's 

children 

int i, size; 

boolean PolOK = false; 

Node grand_child, CNode=null; 



if (child == null) { 

WARNING (0, "posit ion_re cur si ve 11 , "child is null"); 

return; 

} 

if (child. dist < 1) { 

//WARNING (0, "posit ion_recursive" , "child dist <l"+child.Name) , 
return; 

} 



//size = child . Links . size () ; 
size = child . ChildCount ; 

for (i=0; i<size; i++) { // position and then recurse on all children 
// ordered list, set in set_ChildNum_recursive ( ) 
grand_child = child . getNodeAt Link (child . child_vec [i] ) ; 
if (grand_child == null) { 
return; 

} 

if (grand_child.isAN && IdrawAN) { 
return ; 
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if (grand_child. isEvent && IdrawEvent) { 
return; 
} 

5 // 4/29/2000 

if (quick) { 

if (grand_child.mag < Node . MED_MAG - 1 && child. mag < Node . MED__MAG- 1 ) { 
//System. out .print ( " P [ " +grand_child . Name+" 3 "); 
return; 

10 } 



if (grand_child.dist > child. dist) { 

CNode = child. getCNodeAtL ink <i) ; 
15 if (CNode != null) 

posit ion_node (child, CNode) ; 
pos it ion_node (child, grand_child) ; 
pos it ion_recursive (child, grand_child) ; 

} 

20 } 

return; 



} // end position_recursive 



25 /* 

** METHOD posit ion_node (parent , child) sets the child's x and y vars into 
** screen coordinates based on it's parent's position 

*/ 

3 0 float position_node (Node parent, Node child) { 

double pxSum=0, pySum=0; 
Node tn=null; 

if (parent =- null) 
3 5 return ( 0 ) ; 

if (child == null) 
return ( 0 ) ; 

if (child. Debug && Debug==l) { 
40 System, out .print In ("posit ion_node () : parent =< " +parent . Name+ 11 > -> 

child=<"+child.Name) ; 

} 

if (parent . Debug && Debug==l) { 

System. out .print In ("posit ion_node () : parent = < 11 +parent . Name+" > -> 
45 child=<"+child.Name) ; 

} 

// RUNNING SET OF MAX AND MIN VALUES OF COORDINATES HERE 
50 count er_of_pos it ioned_nodes ++; 
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if (min_x > child. x) 

min_x = child. x; 
if (min_y > child. y) 

min_y - child.y; 
if (max_x < child. x) 

max_x « child. x; 
if (max_y < child. y) 

max_y = child.y; 

if (child. isLayer) { 

child. x = child. X; 
child.y = child. Y; 
return (0) ; 

} 

if (VRyes (child) ) { // draw in absolute position, not relative to caller 

child. x = (0 . 9*child.X+0 . l*child.x) ; // move 90% each update to ideal 

spot 

child.y = (0 . 9*child. Y+0 . l*child.y) ; // move 90% each update to ideal 

spot 

} 

else { 

force . calc_pressures (parent , child) ; 
if (globalMaxPressure > 10) { 

pxSum = 10* force .pxSum/globalMaxPressure; 
pySum = 10*f orce . pySum/globalMaxPressure ; 

} 

else 

{ 

pxSum = force . pxSum; 
pySum = force . pySum; 

} 

child. px = pr essure_mag*pxSum* Math, abs (pxSum) ; 
child. py = pr e s sur e_mag*py Sum* Math. abs (py Sum) ; 
child. x += child. px; 
child.y += child. py; 
if (Debug > 0) { 

child. pxParent = force . pxParent ; 

child. pxPOV = force.pxPOV; 

child. pxNeighbors = f orce .pxNeighbors ; 

child. pyParent = force .pyParent ; 

child. pyPOV = force.pyPOV; 

child.pyNeighbors = f orce .pyNeighbors ; 

} 

} 

i f ( dr awE vent ) { 

if (child. isEvent && parent. isDN) { // force DNs near their event 
parent. x = child.y + 5 0 + 10/magscale; 
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parent. y = child. y+2 + 2 . 0* (parent . ChildNum-3) ; 
parent .ThetaOff set = 0; 

} 

else 

5 if (parent. isEvent && child . isDN) { // force DNs near their event 

child. x ■ parent. x + 50 + 10/magscale ; 
child. y = parent. y+2 + 2 . 0* (child. ChildNum-3) ; 
child. ThetaOf f set = 0; 
} 

10 else 

if (child. isDN && (null != (tn=child . has SiblingOf Type ( "Event "))) ) { // else 
force DNs near any related event 

child. x = tn.x + 70 + 10/magscale; 

child. y = tn.y+2 + 1 . 5* (child . ChildNum-3 ) ; 
15 child. ThetaOf f set « 0; 

} 

} 

return ( 0 ) ; 
2 0 } // end position_node 

/** 

* method nsr_render_chromosome 
*/ 

2 5 boolean nsr_render_chromosome (Node node) { 

int xl, yl, x2, y2, t; 

xl = (int) (node.x - magscale*10) + WindowXcenter; 
yl - (int) (node.y - magscale*30) + W indowYc enter; 
x2 = (int) (node.x + magscale*10) + WindowXcenter; 

3 0 y2 = (int) (node.y + magscale*3 0) + WindowYcenter ; 

graphics .drawLine (xl, yl, x2, y2) ; // draw a fake chromosome 
graphics . drawLine (xl, yl, xl, yl- (int) (magscale*5) ) ; 
t=xl; 
Xl=x2 ; 
35 x2=t; 

graphics .drawLine (xl, yl, x2, y2) ; // draw a fake chromosome 
graphics .drawLine (xl, yl, xl, yl- ( int ) (magscale*5) ) ; 
return (true) ; 

} // end nsr_render_chromosome 

40 

/* 

* trim return a string of 'length' precision of argument double 'x* 

V 

public String millis (long x) { 

4 5 String s; 

int len=0; 

s = java_lang_long . toString (x) ; 
len = s. length () - 3; 
if (len < 0) 

5 0 len = 0; 
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return ( (String) (s . substring (0, len) ) ) ; 
} // end trim 

/★* 
/* 

* prec return a string of 'length' precision of argument double 'x' 
*/ 

public String prec (double x, int length) { 
String s; 

int max_length, printed_length; ; 

s = java_lang_double . toString (x) ; 
max_length = s . length ( ) ; 

printed_length = (max_length < length) ? max_length : length; 
return ( (String) s . substring (0 , printed_length) ) ; 
} // end prec 

/* * 
** state 

*/ 

public void state () { 

//if (s . equal slgnoreCase ( "magscale" ) ) 

P (0 , "state" , "magscale = "+magscale) ; 
//if (s . equal slgnoreCase ( "window" ) ) 

P(0, "state", "WindowXcenter= " +WindowXcenter+" WindowYcenter= 
"+WindowYcenter+" WindowXOf f set= "+WindowXOf f set +" 
WindowYOf f set=" +WindowYOf f set) ; 
} // end state 



** draw_string 
* * 

*/ 

public void draw_string (String s, Point p) { 
draw_string (s , p.x, p.y) ; 
} // end one version of draw_string 

/*********★*★***************** i 

public void draw_string (String s, int x, int y) { 
int i=0, len=50, line_len, start=0 # end=0; 
String ss; 

// frame. set Font (little Font) ; 
end = s . length ( ) ; 
start = 0; 
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if (end <= len) 

graphics .drawstring (s, x # y) ; 

else 

while (start < end) { 

line_len = end - start; 
if (line_len > len) 

line_len = len; 

if ( (s . substring (start+line_len-l, start+line_len) . equals ( " " ) ) || 
(start+line_len == end) ) 

ss = s . substring (start , start+line_len) ; 

else 

ss - s . substring (start , start +line_len) +" - " ; 
graphics . drawstring (ss, x, y+(10*i++)); 
start += line_len; 
} 

// frame. setFont (titleFont) ; 
} // end draw_string 

/***************★************************************************** 
/* * 

* method show_node_once 
*/ 

void show_node_once (Node node) { 
boolean selected; 
if (node == null) { 

WARNING ( 0 , "show_node_once n , "NULL node"); 

return; 

> 

// We must switch the graphics context to draw on the live image immediately 
// rather than in double-buffer mode, so use image_counter and handle it. 

graphics = f rame .getGraphics ( ) ; 

render_node (null , node, true); // draw immediately, 'true' refers to XOR mode 
if ( imag encounter == 1) { // now undo the damage to the graphics context 
• graphics 1 

graphics = imagel . getGraphics () ; 
} else { 

graphics = image2 . getGraphics () ; 

} 

return ; 

} // end show_node_once 
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/** 

* method render_node 
*/ 

float render_node (Node parent, Node child, boolean xor) { 

Node tnode = null; 

int i, size; 

int width=5, height=5; 

Point Parent Point =new Point (), ChildPoint=new Point (), TempPoint=new Point (); 
int child_center_x, child_center_y ; 
doub 1 e max_mag = 1 ; 
boolean ZoomOn-f alse ; 

int length; // for the Name, and its formatting 
int index; // for the Name, and its formatting 
String Name_text; // for the Name, formatted 
String sTS = millis (current_TS - child. TS) ; 
Color current_color=null ; 
boolean continue_f lag=f alse; 



if (child. isEvent && drawEvent) 

continue_f lag |= true; 
if (child. isCN && drawCN) 

continue_f lag |= true; 
if (child. isAN drawAN) 

continue_f lag |= true; 
if (child. isON && drawON) 

continue_f lag |= true; 
if (child. isDN && drawDN) 

continue_f lag |= true; 
if (child. isFile && drawFile) 

continue_f lag |= true; 
if (child. isURL && drawURL) 

continue_f lag |= true; 

if ( ! continue_f lag) 
return (0) ; 

/***************************************************** 

if (VRyes (child) ) { 

if (child. isEvent) { 

width = (int) (child. size_X*magscale) ; // in screen coordinates 
height = (int) (child. size_Y*magscale) ; // in screen coordinates 

} 

else { 

width = (int ) (child. mag*child. size_X*magscale) ; // in screen 

coordinates 

height = (int) (child. mag*child. size_Y*magscale) ; // in screen 

coordinates 
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} 

// CHILD ChildPoint is the upper left corner in screen coordinates 
map( (int) (child. x) , (int) (child. y) , ChildPoint) ; 



// TINY CALCS here 
if (child TinyNode) { 
10 TinyPoint = ChildPoint; 

} 

// THIS IS FOR DYNAMIC CONTROL OF HOW MUCH IS SEEN 
if (pos_threshold > text_threshold) 
15 pos_threshold = text_threshold-0 . 1 ; 

else 

pos_threshold = DEFAULT_POS__THRESHOLD ; 



20 

// DRAW THING 

// DRAW RECTANGLE OR OVAL OR LINE FOR NODE 

if (child. mag > box_threshold) 
25 { 

if (child. isForm) { 

graphics . fill3DRect (ChildPoint .x, ChildPoint . y-height , width, 

height, true) ; 

} 

3 0 else if (child. isAN) 

graphics .drawOval (ChildPoint .x, ChildPoint . y-height , width, 

height) ; 

else if (child. isEvent) { 

graphics. fill3DRect (ChildPoint. x, ChildPoint . y-height , width, 

3 5 height, true) ; 

} 

else if (child. Type. equals ("TL") ) { 

graphics. fill3DRect (ChildPoint .x, ChildPoint . y-height , width, 

height, true) ; 

40 } 

else if (drawBoxes && child. isDN) 

graphics . drawRect (ChildPoint . x, ChildPoint . y-height , width, 

height) ; 

else if (drawBoxes child. isURL) { 

4 5 current_color = graphics . getColor () ; 

if (child.Data[0]==null) { 

graphics . setColor (color_obj .Grey) ; 
} else { 

graphics . setColor (color_obj . Ve ry Light Grey) ; 

50 } 
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graphics . f ill3DRect (ChildPoint .x, ChildPoint .y-height, 

(int) (0 . 7*magscale*width) , (int) (magscale*height ) , true) 
graphics . setColor (current_color) ; 

} 

if (child. isCN) { //superimpose oval if acting as a CNode 
current_color = graphics .getColor () ; 
graphics . setColor (color_obj .Very Light Red) ; 
graphics . drawOval (ChildPoint . x, ChildPoint . y-height , 

(int) (2*width) , (int) (height) ) ; 
graphics . setColor (current_color) ; 
} 

} 

else 

graphics . drawLine (ChildPoint . x, ChildPoint . y-height , ChildPoint . x+4 , 
ChildPoint . y-height) ; 
if (Details) { 
if ( 

( (child. x - spaceX) > -5) && 
( (child. x - spaceX) < 5) && 
(( child. y - spaceY) > -5) && 
( (child. y - spaceY) < 5) && 
(child. mag >= box_threshold) 
) 

ZoomOn = true; 
else 
ZoomOn = false; 

) 

// DRAW NAME 

if (((Debug == 1) && (child. mag >text_threshold ) ) || (ZoomOn)) { 
// Mag, distance 

graphics . drawstring ( " [m( M +prec (child .mag, 3) 

+" ) d(" +child.dist+ ")" 

+ child. Name 

+" , TS=" +sTS+ " ] ", 

ChildPoint .x, ChildPoint . y+10) ; 

} 

graphics .drawstring (child .Name +" , Descriptions • " +child . Desc+" * " , 
ChildPoint . x+width+1 , ChildPoint . y ) ; 

**********************************************************^ 
else 

if (drawText) { 

if (IdrawDN && child. isDN) 

else { 

if (child. mag > text_threshold) { 
if (child. isURL) { 

//graphics . setColor (Color .blue) ; 

i= 1 + child. Name. lastlndexOf ("/") ; // add one to work 

with substring () 



-282- 



PATENT 



if (i>0) { 

//base = chi Id. Name . substring (0, i) ; 
//name = child .Name . substring (i) ; 
draw_string (child. Name . substring (i) , 
ChildPoint . x+width+1 , ChildPoint . y ) ; 

} 

} 

else 

draw_string (child. Name, ChildPoint .x+width+1 , 

ChildPoint .y) ; 

} 

} 

) 

// PARENT 

if (parent != null) { 

if (child == datasea . Root) 

return (0) ; // Bail if we are trying to draw the root from another node 

map (parent .x, parent. y, Parent Point ) ; 

// DRAW RELATIONS AS LINES 
draw_relat ions (child, parent, xor) ; 

// In this block, draw relations in yellow from distal ANs 

{ 

size = child. Links . size () ; 

for (i=0; i<size; i++) { // check dist of all children, position if 
appropriate 

tnode = child. getNodeAtLink (i) ; 
if (tnode. isAN && tnode != parent) 

draw_relat ions (child, tnode, xor); 

} 

} 

// END DRAW RELATIONS 



if ((parent == datasea. Root) || (parent == datasea . POV) ) // Special case, else 
we won' t see it 

graphics . drawstring (parent .Name, Parent Point . x, ParentPoint . y) ; 

} 

// RADIAL LINES FOR LAS TNODE 
if (child == lastNode) 
{ 

if (FlipAxes) { 

child_center_y 
child center x 



= (int) (ChildPoint .x + width/2); 
= (int) (ChildPoint .y + height /2 ) ,- 
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} 

else { 

child_center_x = (int) (ChildPoint .x + width/2); 
child_center_y = (int) (ChildPoint .y - height/2); 
} 

// PRESSURE LINES 
if (Debug > 0) { 

graphics . setColor (Color .blue) ; 

graphics . drawLine (child_center_x, child_center_y , 

(int) (child_center_x+10*child.pxPOV) , (int) (child_center_y- 
10*child.pyPOV) ) ; 

graphics . setColor (Color . red) ; 

graphics .drawLine (child_center_x, child_center_y, 

(int) (child_center_x+10*child.pxParent) , (int) (child_center_y- 
10*child.pyParent) ) ; 

graphics . setColor (Color . green) ; 

graphics .drawLine (child_center_x, child_center_y , 

(int) (child_center_x+10*child . pxNeighbors) , (int) (child_center_y- 
10* child. pyNeighbors) ) ; 
} 

else { // OR MARK WITH AN X 

graphics .drawLine (child_center_x+10 , child_center_y+10 , child_center_x+30 , 
child_center_y+30) ; 

graphics .drawLine (child_center_x-10 , chi 1 decent er_y+10 , child_center_x-30 , 
child_center_y+30) ; 

graphics . drawLine (child_center_x-10 , child_center_y-10 , child_center_x-30 , 
child_center_y-30) ; 

graphics . drawLine (child_center_x+10 , child_center_y-10 , child_center_x+3 0 , 
child_center_y-30) ; 
} 

} // end if child == lastNode 
if (xor) 

graphics . setPaintMode ( ) ; 
return ( 0 ) ; 

} // end render_node 



* * dr aw_re 1 at i ons 
*/ 

public void draw_relations (Node child, Node parent, boolean xor) { 

int i, size; 

Node tnode; 

Link link=null; 

Color current_color=null ; 

Point Parent Point =new Point () f ChildPoint=new Point (), TempPoint=new Point (); 
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if (child==null | | parent ==null) 
return; 

map (child. x, child. y, ChildPoint); 
map (parent .x, parent. y, ParentPoint); 

// DRAW RELATIONS AS LINES 

//if ( (parent .isCN || child. isCN) && IdrawCN) 
// 

if ( (parent . isAN || child. isAN) && IdrawAN) 
else if ( (parent . isDN || child. isDN) && IdrawDN) 
else if (mode_obj . lines_mode . equals ( "none" ) ) 
else if (child == datasea. Root ) 

else if ((child. mag >= relations_threshold) && (parent. mag >- 
relations_threshold) ) { 
if (xor) 

graphics . setXORMode (Color . green) ; 

else 

col or_ob j . set_color_for_rel at ions (graphics, parent, child); 

if (mode_obj . lines_mode . equals ( "local" ) ) { 
if (lastNode != null) { 

if ((lastNode == parent) | | (lastNode == child)) { 

// graphics . drawLine (ChildPoint -x, ChildPoint . y, 

// ParentPoint .x, ParentPoint .y) ; 

size = child. Links . size () ; 

for (i=0; i<size; i++) { // check dist of all children, position if 
appropriate 

tnode = child.getNodeAtLink (i) ; 

map ( tnode . x , tnode . y , TempPoint ) ; 

graphics . drawLine (TempPoint . x, TempPoint . y , 

ChildPoint .x, ChildPoint . y) ; // child to its 

siblings 

} 

} 

} 

} 

else if (mode_obj . line s_mode . equals ( "all" ) ) { 

if (child. isSelected == true) // special case for traceback 
graphics . setColor (Color . red) ; 

boolean is_aliased_time = false; 
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if (child==datasea .pop . yesterday_node || child==datasea .pop . today_node 
| | child==datasea .pop . tomorrow_node 

| | child==datasea.pop.last_week_node | | 
child==datasea.pop. this_week_node | | child==datasea . pop . next_week_node) 

is_aliased_time = true; 

if (child. isEvent && parent . isEvent && ! is_aliased_time) 
graphics .drawLine (ChildPoint .x, ChildPoint . y , 

Parent Point .x, ChildPoint . y) ; // Event to TimeLine 

else 

if (parent J= datasea.POV) 

graphics . drawLine (ChildPoint . x, ChildPoint . y , 

ParentPoint . x, Parent Point . y) ; // child to parent 

} 

if (drawLinkNames 

&& ( (parent .mag > Node . BIG_MAG && child. mag > Node . BIG_MAG) 

|| (parent==gui . lastNode || child==gui . lastNode) ) ) { 
int xl=0 , yl=0 , x2 = 0 , y2 = 0; 



link = parent .get LinkTo (child) ; 
if (link i= null) { 
if (link. Name != "") 

graphics .drawstring ( " ( " +link . Name+" ) ", 

(int) ( (ParentPoint .x+ChildPoint .x) /2) , 

(int) ( (ParentPoint . y+ChildPoint .y) /2) ) ; 
if (parent .getPol (child) == ' + ') { 

xl = (int) ParentPoint .x; 

yl = (int) ParentPoint .y; 

x2 = (int) (ParentPoint .x+ (ChildPoint . x- ParentPoint .x) *0 . 7) ; 
y2 = (int ) (ParentPoint .y+ (ChildPoint . y- ParentPoint .y) *0 . 7) ; 
graphics . drawOval ( x2, y2 , 3, 3); 
//graphics . drawLine ( xl # yl, x2 , y2) ; 
// child to parent 

} 

else 

if (parent .getPol (child) == '-•) { 
xl = (int) ParentPoint .x; 
yl = (int) ParentPoint .y; 

x2 = (int) (ParentPoint .x+ (ChildPoint .x- ParentPoint .x) *0 . 3) ; 
y2 = (int) (ParentPoint .y+ (ChildPoint . y- ParentPoint .y) *0 . 3) ; 

graphics . drawOval ( x2 , y2 , 3 , 3 ) ; 
//graphics . drawLine ( xl, yl, x2 , y2) ; 

} 

else { 

xl = (int) ParentPoint .x; 

yl = (int) ParentPoint .y; 

x2 = (int) (ParentPoint .x+ (ChildPoint .x-Parent Point .x) *0 . 7) ; 

y2 = (int) (ParentPoint .y+ (ChildPoint . y- ParentPoint .y) *0 . 7) ; 
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graphics . drawOval ( x2, y2, 5, 3) ; 
//graphics . drawLine ( xl, yl, x2, y2) ; 

x2 = (int) { Parent Point .x+ (ChildPoint .x- Parent Point .x) * 0.3) ; 
y2 = (int) (ParentPoint .y+ (ChildPoint .y-ParentPoint .y) *0 .3) ; 
graphics . drawOval ( x2, y2, 5, 3); 
//graphics .drawLine ( xl, yl, x2 , y2) ; 

} 

} 
} 

// Special case drawing of relations, if isSelected 
if (child. isSelected) { 
current_color = graphics . getColor () ; 

size = child. Links . size () ; 

for (i=0; i<size; i++) { // check dist of all children, position if 
appropriate 

tnode = child. getNodeAtLink (i) ; 
map ( tnode . x , tnode . y , TempPoint ) ; 
// set the colors 

if (tnode. dist == child. dist) 

graphics . setColor (Color . green) ; 

else 

if (tnode. dist >= child. dist+0 . 1) 

graphics . setColor (Color .blue) ; 

else 

if (tnode. dist == child. dist-1) 

graphics . setColor (Color . red) ; 

else 

graphics . setColor (Color .yellow) ; // not within dist of 1 
graphics . drawLine (TempPoint . x, TempPoint . y , 

ChildPoint .x, ChildPoint . y) ; // child to its 

siblings 

} 

graphics . setColor (current_color) ,- 

} 

} // mag thresholds 

} // end draw_relations 



/** 

* method createMyself Creates a node, links it to 'this' 
*/ 

public void createMyself () { 
if (GlobalNodeNode ==0) { 
GlobalNodeNode ++; 

Myself = new Node ("Node", "Java Object", "The Essential Node"); 
P(0, "GUI .createMyself " , "Initializing the Myself Object"), - 
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Myself .describe ( "To Console") ; 

} 

} // end createMyself 

/** 
** demol 

*/ 

public void demol () { 
int i ; 
Node a, b; 

P ( 0 , " demol " , " Begun " ) ; 
input - string_input ( " show thes " ) ; 
input . string_input ( " 3 " ) ; 
input . string_input ( "pot mag egg art " ) ; 
input . string_input ( "pot mag egg art " ) ; 
input . string_input ( "potmag egg art " ) ; 

P(0, "demol" , "Done."); 

} // end demol 

/ * * 

** demo2 
*/ 

public void demo2 () { 
int i ; 

} // end demo2 

/** 
* * demo 2 

*/ 

public void demo3 () { 
} // end demo3 

/** 

** method run_thread 
*/ 

public void run_thread () { 
Thread act ive_ thread; 

active_thread = Thread . currentThread ( ) ; 

if (animation_thread != null) { 

WARNING (0 , "run_thre ad" , "Starting thread, old one exists. 

" (animation^ thread = " +animation_thread+" ) ") ; 
animation_thread. start () ; // should invoke run ( ) below 

button_animate . set Label ( "Running" ) ; 



-288- 



PATENT 



return ; 
} 

debug_animation_thread (1 , "run^thread" , "animation thread is null, creating new 
Thread (this) ") ; 

animation_thread = new Thread (this) ; 

animation_thread. start () ; // should invoke run() below 

button_animate . set Label ( "Running" ) ; 

debug_animation_thread (1 , "run_thread" , "after new Thread (this) ") ; 

P(0, "run_thread" , "Thread started: "+ an imation_ thread) ; 
} // end run_thread 

/** 

** debug_animation_thread 
* * 

*/ 

static public void debug_animat ion_thread (int debug_level, String 
fn_name, String fn_desc) { 

if (animation_thread == null) 

P (debug_level , "debug_animat ion_thread [ " +f n_name+ 11 ] : " , f n_desc+ " : <null , 
activeCount="+Thread.activeCount () +" ( "+Thread . current Thread ( ) + ") >" ) ; 
else { 

P ( debug_level , " debug_animat ion_thread E " +f n_name+ " ] : 
" , fn_desc+" : <isAlive="+animation_thread. isAlive () + " , 

activeCount="+Thread.activeCount () +" (" +Thread . cur rent Thread ( ) +")>") ; 

} 

} // end debug_animation_thread 



I * * 

** method stop_thread 

** This should only be called from a point guaranteed not to be 

** inside a routine recursively following the node network, e.g. 

** from update () which checks StopThreadRequest to see if we 

** should be called. 

*/ 

public void stop_thread () { 
Thread active_thread; 

P(0, " st op_thre ad" , "stopping animation_thread" ) ; 
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if (animation_thread !- null) { 

i f ( animat ion_thread . i sAl ive ( ) ) { 

P (0 , M stop_thread" , "isAliveO, calling animation_thread. stop ( ) , 
then nulling it"); 

animat ion_thread . stop ( ) ; 
animat ion_thre ad = null; 

} 

else 

debug_animation_thread (1 , "stop_thread" , "not alive, not 

stopping it . . . " ) ; 

/************************************^ 

// try { animat ion_thread. join (1000) ; } 

// catch (InterruptedException i) { 

// ERROR ( 0, "stop_thread", "ERROR FROM ' join ( 1000 ) ' , 

InterruptedException "+i) ; 

// } 

/ / animat ion_thr ead . s t op ( ) ; 

*****************************************^ 

} 

else 

P ( 0 , " stop_thread M , " animat ion_thr ead is null " ) ; 
debug_animation_thread(l, "stop_thread" , "apparently animat ion_ thread is null") ; 

button_animate . set Label ( "Stopped" ) ; 
//datasea.needdistUpdate = true; 
} // end stop_thread 

/** 
** start 
* * 

*/ 

public void start () { // Applet is started, don't do anything special 
P(0, "start", "ran. ») ; 

} 

public void stop () { // Applet is stopped, stop thread also 
if ( animat ion_thr ead != null) { 

if (animation_thread.isAlive{) ) { 

P (0 , " stop" , "!=null, isAlive so running stop_thread ( ) " ) ; 
stop_thread ( ) ; 

} 

> ■ 

else { 

P(0, "stop" , "ran. 1 animat ion_thr ead ' = null"); 

} 

} // end start 

/ * * 
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** sleep 
* * 



*/ 

public static void sleep (int millis) { 
5 try { Thread. sleep (millis) ; } 

catch (InterruptedException e) { ; } 

} // end sleep 
/* * 

10 ** run 

*★ 

*/ 

public void run () { // This is for the thread animation_ thread 
int i ; 

15 date = new java .util .Date ( ) ; 

timestamp = new Timestamp (date . getTime ()) ; 

Sy st em. err .print In (" run ( ) , BEGUN 11 ) ; 

while (true) { 
2 0 sleep (10) ; 

update (true) ; 

if (StopThreadRequest) { 

Animating = false; 

System. err .println ( " run(), StopThreadRequest 11 ); 

2 5 break; // thread should be done by leaving this function 

} 

} 

} 

30 /** 

** i convert to integer 



public static int i (float x) { 
3 5 return ( (int)x ) ; 

} 

public static int i (double x) { 
return ( (int)x ) ; 
} 

40 

/** 
** status 
* * 

45 */ 

static public void status (String string) { 
int i ; 

for (i=14; i>0; i--) 
50 StatusLine [i] = StatusLine (i-1] ; 
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StatusLine [0] = string; 
} // end status 

/** 

** WARNING Print WARNING messages 

* * 

*/ 

public static void WARNING (int debug_thresh, String fn, String string) { 
if (debug_thresh <= Debug) { 
if (list != null) 

list .add("==> WARNING in ,, +fn+»(): ======= ' « +string+" • " , 0) ; 

System. err .println { "==> WARNING in "+fn+" () : "+string) ; 
// debug_animation_thread (1 , fn # string) ; 
status ("WARNING: "+string) ; 
} 

} // end WARNING 



/ * * 

** ERROR Print ERROR messages 

*★ 

*/ 

public static void ERROR (int debug_thresh, String fn, String string) { 
if (debug_thresh <= Debug) { 
beep ( ) ; 

if (list != null) 

list . add ( " ============= ERROR in function »+fn+" () : ======= 

' "+string+" , 0) ; 

System. err . println ( " ============= ERROR in function "+fn+"{): 

"+string) ; 

dump_stack (fn) ; 
// global_str_size = 1; 

// global_str [0] = "ERROR in fn » +f n+" ( ) : " +string ; 

// sleep (3000) ; // Erase this after a bit ... 

// global_str_size = 1; 

// global_str [0] = "(prior error was in fn " +f n+" ( ) : "+string+" ) " ; 

status ("ERROR: "+string) ; 

> 

} 



/* * 

** P Print debug messages if given value == current Debug value 

* * 

*/ 

public static void P (int debug_thresh, String fn, String string) { 
if (debug_thresh == Debug) { 
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if (list != null) { 

list.add(" ,1 +fn+"(): "+string, 0) ; 
System. err .println<" "+fn+" () : "+string) ; 

} 

5 //status (string) ; 

} 

} 



10 



30 



35 



/ * * 

** dump_stack 



*/ 

15 static public void dump_stack (String fn_name) { 

Sy stem. err. print In (" dump_s t ack {) : Dumping currentThread 1 s stack trace 
deliberately, by "+fn_name) ; 

System. err .print In ( "dump_stack ( ) : 

==========================================:==== M ) . 

2 0 (Thread . currentThread ( ) ) . dumpStack ( ) ; 

System . err . print In ( " dump_stack ( ) : 

} // end dump_stack 



25 t* 

** method print_tree 
*/ 

public void print_tree (String [] words, int num_words) { 
Node node; 



if (num_words==l) 

node = gui . lastNode ; 

else 

node = datasea. find_node_named (words [1] ) ; 



if (node != null) { 

print_tree_data_start (node) ; 
} // end print_tree 

else 

4 0 GUI . WARNING ( 0 , "print_tree" , "No node given" ) ; 

} // end print_tree 



45 /** 

** clear_global_str 
* * 

*/ 

public void clear_global_str () { 
50 global_st resize = 0; 



-293- 



PATENT 



} // end clear_global_str 
/★* 

** add_to_global_str 
*/ 

public void add_to_global_str (String str) { 

if (global_str_size == (MAX_GLOBAL_STR_SIZE-2) ) { 

WARNING (0, "add_to_global_str M , "Over-run in global_str_size" ) ; 

global_str [global_str_size++] = " out of room in global_str 



return; 
} 

if (global_str_size > (MAXJ3LOBAL_STR_SIZE-2) ) { 

WARNING { 0, "add_to_global_str" , "Over-run in global_str_size" ) ; 

return; 

} 

P (0, "add_to_global_str" , str) ; 
global_str [global_str_ size++] = str; 
return; 

} // end add_to_global_str 
/** 

** print__tree_data_start 
* * 

*/ 

public void print_tree_data_start (Node node) { 
int i, j, size, lines_count=l ; 
Node tn; 

clear_global_str ( ) ; 

size = node . Links . size () ; 

add_to_global__str (" 

---") ; 

add_to_global_str (node . Name+ n ( 11 +node . Type+" , " +node . Desc+" ) : 
"+node .Data) ; 

for (i=0; i<size; i++) { 

tn = node . getNodeAtLink ( i ) ; 
//if (tn.dist == node.dist+1) 
if (tn.dist > node.dist) 

lines_count += print_tree__data_recursive (tn) ; 

} 

add_to_global_str (" 

---"> ; 

add_to_global_str ("Lines returned = " 
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+lines_count+" , global_str_size= M +global_str_size) ; 
} // end print_tree_data_start 

/** 

** print_tree_data_recursive 
** 

*/ 

public int print_tree_data_re cursive (Node node) { 
int i, j , size, spaces_count , line_count=l ; 
Node tn; 
String spaces; 
String s=null; 



spaces_count = 60- (int) (node .mag*10 . 0) ; 
.spaces = " " ; 

for (j=0; j < space s_c ount ; j++) // concatenate space s_count " " 

spaces ss spaces + " 11 ; 
if (node. mag > 1) 

add_to_global_str ( spaces +node . Name+" ( " +node . Type+" , 
mag= " +prec (node . mag , 3 ) + 11 ) " ) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node . getNodeAtLink ( i ) ; 

//if (tn.dist =- node.dist+1) 

if (tn.dist > node.dist) 

line_count += print_tree_data_recursive (tn) ; 

} 

return ( 1 ine_count ) ; 

} // end print_tree_data_recursive 

I * * 

** dump_data 
** 

*/ 

public void dump_data (int debug^alue, Node node) { 
int i, j , size; 

P (debug_value, "dump_data M , node .Name +" Desc= ( "+node . Desc+") , 
Data= : 11 +node . Data) ; 

} 

* * dump_node 
*★ 

*/ 

public void dump_node (int debug_value, boolean show_links # Node node) { 
int i, j, size; 
String str; 

Node tnode; 
Link tlink=null; 
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10 



if (Debug < debug_value) 
return ; 

if (node -= null) { 

ERROR ( 0 , » dump_node " , " node is nul 1 " ) ; 
return; 

} 

size = node . Links . size () ; 

for (j=0; j< recur sion_depth; j++) { 

System . err . println (" 



M) . 

15 str = "dmp:'" +node.Name 

+ ",dist=" +node.dist 
+ '^Tdists 11 +node.Tdist 
+ ",11139="+ prec (node .mag, 3) 
+ n i in +no de . Type+ " 1 " 

2 0 + "' isEvent = " +node . isEvent+ " , 11 

+ "' isDN=" +node.isDN+ " , " 
+ » » isAN=" +node.isAN+ " , » 
+ "' isFile=" +node.isFile+ "," 
+ "' isDirectory=" +node . isDirectory+ 11 , " 

2 5 + 11 ' isCN=" +node.isCN+ " , " 

+ isURL=" +node.isURL+ '\ " 
+ " , ChildNum=" +node . ChildNum 
+ " , BigChildCount=" +node . BigChildCount 

+ " (x,y) = (" +i(node.x)+ 11 , " +i (node . y) +" ) " 

3 0 + " (size_x, size_y) = ( " +i (node . size_x) + 11 , " 

+i (node . size_y) +" ) " 

+ " (X,Y)=(" +i(node.X)+ " , " +i (node . Y) +" ) " 
+ 11 (size_X, size_Y) = ( 11 +i (node . size_X) + 11 , " 

+i (node . size_Y) +" ) " ; 

3 5 list . add (str, 0) ; 

System. err .println (str) ; 

} 

if (show_links) 

{ 

4 0 for (i=0; i<size; i++) 

{ 

tnode = node .getNodeAt Link (i) ; 

if (tnode == node) 

System. out .println ( "dump : node=child, < " +node . Name+" >" ) ; 

4 5 str = » " 

+tnode . Name + " " 

+",dist="+ tnode. dist 
+ ",Tdist=" +node.Tdist 

+" ,mag="+ prec (tnode .mag, 3) 

5 0 + " » ( 11 + tnode . Type+ " ) " 
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+ " CS("+prec(node.get_CS(tnode) ,3)+")" 
+ " , ChildNum-" +tnode . ChildNum 
+ ",BigChildCount=" +node . BigChildCount ; 
list .add (str, 0) ; 
5 System. err .println (str) ; 

> 

} 

if (node . isCN) 

{ 

10 size = node .Context Links . size () ; 

for (i=0; i<size; i++) { 

tlink = (Link) (node . Context Links . element At (i) ) ; 
if (tlink != null) { 

str = " dmp : Context Link [ " +i+"]" 
15 +" 1 links nodes +tlink . NodeR .Name+ " ' and 

' "+tlink.NodeL.Name+" 1 " ; 

System. err .println (str) ; 
} 

} 

20 } 

System . err . println ( 11 

) . 

return ; 

} / / end dump_node ( ) 



25 



*■* dump_nodes 



* * 



*/ 

30 public void dump_nodes (int debug^alue, Node node) { 

int i, j, size; 
if (node == null) 
return; 

dump_nodes_recursive (debug_value, node) ; 

3 5 } // end dump__nodes () 

/** 

** dump_nodes 
* * 

40 */ 

public void dump_node s_r ecur s i ve (int debug_value r Node node) { 
int i, j, size; 
if (recursion_depth == 0) 

P ( debug_value , " dump_node s", 11 " ) ; 

4 5 dump_node (debug_value, false, node) ; 

recursion_depth ++; 
size = node . Links . size () ; 
for <i=0; i<size; i++) { 

if (node . get Node At Link ( i ) . hasLargerDistThan (node ) ) 

5 0 dump_node s ( debug_value , node . get NodeAt Link ( i ) ) ; 
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> 

recurs ion_depth - - ; 

if ( recurs ion_depth =- 0) 

P ( debug_value , " dump_node s " , " " ) ; 

return; 

} // end dump_nodes__re cursive ( ) 

/* * 

** runl 
** 

*/ 

public void runl () { 

update (1) ; 
} // end runl 

/** 

** method update 

** paint nodes, starting on Root 
*/ 

public void update (int count) { 
int i ; 

for (i=0; i< count; i++) 
update (true) ; 
} // end update (int) 

I * * 

** request_stop_thread block and wait for a limited while until Animating is 
false, return ultimately. 
* * 

*/ 

static public void request_stop_thread () { 
int i ; 

StopThreadRequest = true; // sensed by . . . 

for (i=0; (i<100 && Animating==true) ; i++) { 
System . err . print ( " . " ) ; 
sleep (10) ; 

} 

return; 

} // end request_stop_ thread 
/** 

** method update 

** update and paint nodes, starting on Root 
*/ 
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public void update (boolean change_images) { 

// change image_counter and get appropriate graphics in prep for paint () 

5 if ( chang e_images) { 

if (image_counter>=2) 

{ 

image_counter=l ; 

graphics ■ imagel . getGraphics ( ) ; 

10 } 

else 

{ 

image_counter=2 ; 

graphics = image2 . getGraphics () ; 

15 } 

} 

// SET THE GRAPHICS TO THE IMAGE 

if (datasea.POV != null) { 
2 0 paint (datasea . POV, 0) ; 

} 

else { 

paint (datasea . Root , 0 ) ; 

} 

2 5 graphics . setColor (color_obj . LightGrey) ; 

// SET GRAPHICS TO THE FRAME'S GRAPHICS IN PREP' FOR drawlmage ( ) 
graphics = frame .getGraphics () ; 
this . getToolkit ( ) . sync ( ) ; 

3 0 // DRAW THE IMAGE ONTO THE FRAME 

i f ( image_count e r = = 1 ) 

graphics . drawlmage (imagel , 0,0, frame) ; 

else 

graphics . drawlmage ( image2 , 0,0, frame) ; 

35 

if (auto_rescale) 

rescale ( "run" ) ; 
} // end update 

40 /** 

** method reset_current_TS , called by update 
*/ 

public static void reset_current_TS () { 

current_TS = java. lang. System. currentTimeMil lis () ; 

4 5 } // end reset_current_TS 



/* * 

* * set_Xnode 

50 
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*/ 

public void set_Xnode () { 
int i, size; 
Node child; 

if (lastNode == Xnode) { 
Xnode = null; 

P(0, "set_Xnode" , "Setting Xnode to null"); 
} 

else 

if (lastNode != null) { 
Xnode = lastNode; 

P(0, "set_Xnode M , "Setting Xnode to lastNode " +Xnode . Name ) 
} 

else 

WARNING (0 , "set_Xnode", "Need a lastNode to set Xnode."); 
} // end set_Xnode 



/* * 

** method paint , called by update 
*/ 

public void paint (Node POV, int dist_to_P0V) { 

float completion_level = 0; 

reset_current_TS ( ) ; 

if (Debug==l) 

timer . start_timer ( "position" ) ; 
rescale ("clear" ) ; 

if (Xnode != null) { // 11/27/99 

DataSea.needdistUpdate = true; 

} 

completion_level = posit ion_start (POV) ; 

if (Xnode != null) { // 11/27/99 

DataSea.needdistUpdate = true; 
completion_level = position_start (Xnode) ; 

} 

if (Debug==l) 

timer .end_timer ( "position") ; 
if (Debug==l) 

timer . start_timer ("render") ; 

completion_level = render_start (POV) ; 

if (Debug==l) 

t imer . end_t imer ( " render " ) ; 
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} // end paint 



/** 

5 ** get_angle 

** set the angle theta of a node to angle from it's caller 

* * 

*/ 

static public double get_angle (Node a, Node b) { 
10 double delta_x, delta_y; 

delta_x = b.x - a.x; 
delta_y - b.y - a.y; 

return (get_angle (delta_x, delta_y) ) ; 
} // End of get_angle (Node. . . ) 

15 

/** 

** get_angle 

** set the angle theta of a node to angle from it's caller 

* * 

20 */ 

static public double get_angle (double delta_x, double delta_y) { 
return (Math. atan2 (delta_y , delta_x) ) ; 
} // End of get_angle (double...) 

25 

/** 

** action 
* * 

30 V 

public void action (Node node) { 
int i, size, j , size j ; 
Node child, grand_child; 



35 



if (node == null) 
return; 



if (node. isURL) { 
4 0 text_f rame . setvisible (true) ; 

text_graphics = text_f rame . getGraphics ( ) ; 
text_f rame . setTitle (node .Name) ; 
if (node. Data [0] 1= null) { 

text_graphics .clearRect (0, 0, (text_f rame . getSize ( ) ) .width, 
4 5 (text_f rame. get Size () ) .height) ; 

draw_text (node) ; 

} 

} 

else 

50 if (node.isAN) { 
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text_f rame . setTitle ( " (Hidden) " ) ; 
text_frame . setvisible (false) ; 

} 

else 

if (node.isDN) { // something like a menu 

text_f rame . setTitle ( "URL not selected"); 
text_f rame . setvisible (false) ; 

node . set_mag (Node . MAX_MAG) ; 
datasea .back_r ( (Node) null , node, 0) 
datasea. backer ( (Node) null, node, 0) 
datasea. back_r{ (Node) null, node, 0) 
size = node . Links . size () ; 

// make children all visible 

for (i=0; i<size; i+ + ) { 

child = (Node) (node . get NodeAt Link ( i) ) ; 
if (child. dist > node.dist) { 

child . set_mag (Node . MAX_MAG - 1 ) ; 
sizej = child. Links . size () ; 

// make grand- children 1 s lines all visible, but no names 

for (j=0; j<sizej; j++) { 

grand_child = (Node) (child. getNodeAt Link (j )) ; 
if (grand_child.dist > child. dist) { 

grand_child. set_mag (text_threshold - 0.1) 

} 

} 

} 

} 

} 

datasea . needdistUpdate = true; 
} // end action 



** draw_text 
*/ 

public void draw_text (Node node) { 
int i, size; 
String s=null; 

// TEST HERE 

Size = Node . MAX_TEXT_DATA_LINES ; 
for (i=0; i<size; i++) { 
s = node .Data [i] ; 
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if (s == null) 
break; 

else { 

s = eliminate_html (s) ; 

text_graphics .drawstring (s, 10,50+10*i) ; 

} 

} 

} // end draw_text 



I * * 

* * f ind_doma in_name 

* * 

*/ 

public String f ind_domain_name (String input_string) { 

int index , num_ words ; 

String words [] , ret_string=null ; 



if (-1 == (index = input_string . toLowerCase (). indexOf ( "http ://")) ) 
return ( (String) null) ; 

System. out .print In (" find_doma in_name : full string is " +input_string) ; 

StringTokenizer st = new StringTokenizer ( input_string, "/" ); 
num_words = st . countTokens ( ) ; 
words = new String [num__words] ; 

if (num_ words >= 2) { 

ret_string = st . nextToken () ; 
System. out .print In ( "f ind_domain_name : 'http:' is ================ " +ret_string) 

ret_string = st . nextToken () ; // use the second one 
System. out . print In (" find_domai n_name : Assuming domain is ================ 

"+ret_string) ; 

} 

for (int i = 0; i < num_words; i++) { 
- words [i] = st . nextToken () ; 

index = words [i] . toLowerCase ( ) . indexOf ( "www . " ) ; 
if (0 <= index) 

ret_string = words [i] ; 

} 

********************************************* 

return (ret_string) ; 

} // end f ind_domain__name 
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* * f ind_URL_name 
** 

*/ 

public String f ind_URL_name (String input_string) { 
int index, num_words; 
String ret_string=null ; 
String words [] ; 

if (-1 == (index = input_string . toLowerCase ( ) . indexOf ( "href =" ) ) ) 
return ( (String) null) ; 

StringTokenizer st = new StringTokenizer ( input_st ring, " , =<>\ " \t\r\n" ); 
num_ words = st . count Tokens ( ) ; 
words = new String [num_words] ; 

//System. out . print In ( " f ind_URL_name : full string is - - > " + input _string+" < - - , 
num_words = " +num_words ) ; 

for (int i = 0; i < num_words; i++) { 
words [i] = st . nextToken () ; 

//System. out .print In ( "find_URL_name : Working on ================ 

"+words [i] ) ; 

index = words [i] . toLowerCase ( ) . indexOf ( "href " ) ; 
if (0 <= index) { // found one 

if ( (i+1) <num_words) { 

words [++i] = st . nextToken () ; 

ret_string = words [i] ; 

> 

else 

System. out .print In ( " f ind_URL_name ERROR , FOUND 'HREF' but i+1 >= 

num_words") ; 

> 

} 

// See if there are bad things here . . . 
if (ret_string != null) { 

if (0 <= (index = ret_string . toLowerCase (). indexOf ( "mailto" )) ) 
ret_string = null; 

else 

if (0 <= (index = ret_string . toLowerCase (). indexOf ( "cgi -bin" )) ) 
ret_string = null; 

else 

if (0 <= (index = re t_s t r ing . toLowerCase () . indexOf ("#")) ) 
ret_string = null; 

else 

if (0 <= (index = ret_string . toLowerCase (). indexOf ( "messages" )) ) // for egg- 
tempera 

ret_string = null; 

} 

//if (ret_string != null) 

// System. out. println("find_URL_name returning "+ret_string) ; 
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return (ret_string) ; 

} // end f ind_URL_name 

/** 

** eliminate_html eliminate what look like HTML tags, replace with a blank 
*★ 

*/ 

public String eliminate_html (String string_arg) { 
String s=string_arg; 

int lef t_bracket_index, right_bracket_index; 
String wl , w2 ; 

while (true) { 

if (s. length () <= 0) { 

break ; 

} 

if (0 <= s .toLower Case (). indexOf ( "meta" ) ) { 
break; 

} 

lef t_bracket_index = s . indexOf ( "< M ) ; 
right_bracket_index = s . indexOf ( " > " ) ; 
if (lef t_bracket_index < 0) 
break; 

if (right_bracket_index < 0) 
break; 

if (right_bracket_index <= lef t_bracket_index) { 
//System. err . print In ("draw_text "+s) ; 

//System. err . print In ( "draw_text breaking : right_bracket_index <= 
lef t_bracket_index M ) ; 

break; 

} 

wl = s. substring (0, lef t_bracket_index) ; 
w2 = s . substring (right_bracket_index+l) ; 
s = wl+" "+w2; 

} 

return (s) ; 

} // end eliminate_html 
/** 

** eliminate_punctuation eliminate what look like HTML tags, replace with a 
blank 
* * 

*/ 

public String eliminate_punctuation (String string_arg) { 
String s=string_arg; 

int lef t_bracket_index, right_bracket_index; 
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String wl, w2 ; 

while (true) { 

if (s.lengthO <= 0) { 

break; 

} 

if (0 <= s . toLowerCase () . indexOf ( "meta") ) { 
break ; 

} 

lef t_bracket_index - s . indexOf ( " , " ) ; 
r ight_bracket_index = s . indexOf ( " > " ) ; 
if (leftjbracket_index < 0) 
break; 

if (right_bracket_index < 0) 
break ; 

if (right_bracket_index <= lef t Jbracket_index) { 
//System. err .print In { "draw_text "+s) ; 

//System. err .print In ( "draw_text breaking : right_bracket_index <= 
lef t_bracket_index" ) ; 

break ; 

} 

wl = s . substring (0, lef t_bracket_index) ; 
w2 = s . substring (r ight_bracket_index+l ) ; 
S = wl+" "+w2; 

} 

return (s) ; 

} // end eliminate_j?unctuation 
/** 

** p print out something 

* * 

*/ 

public void p (String s) { 
System . out . print In ( s ) ; 
} // end p 

/** 

** node_to_string 

* * 

*/ 

public String node_to_string (Node node) { 
String s = 

"<"+node .Name +" > (m="+node .mag +" ) ( n +node . Type+" ) [d=" +node . dist+" ] [Td="+node.Tdist 
+ "] 

return (s) ; 

} // end node_to_string 



} // End of Object GUI 
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// This is DataSea.java by Rocky Nevin 

import j ava . applet . * ; 
import j ava . lang . * ; 
import j ava . awt . * ; 
import java.util.*; 
import j ava . io . * ; 



j it * 

* This is DataSea.java by Rocky Nevin 

* ©version 0.1, 8/6/98 

* ©version 0.4, 3/12/98 
★ 

* 8/6/98 

* New version, rewritten 

* Ported to JBuilder2 9/98 

* Principal Methods: 
absorb_P0V 
add_POV 

add_t o__node_vec 

add_t o_unpr oc e s s ed_ve c 

doner 

connect_up 

f ind_node* 

gen_* 

init 

locate_node 

more_attract ion/repulsion 

populate 

Postprocessor 

show_node_vec 

spread_mag 

string_input 

word_* methods parsing input like 'show', 'back', 'more', 'sim' ... 

These all used to be word_xxx or word_xxx_start , but many now are 
simply xxx, like ' word_back_start * is now 'start'. 

1/19/99 

Node- specif ic rendering is important and must be included. Nodes with 
master-rendering function will invoke their children's subservient rendering. 
1/20/99 

Add potentiate function to the spread mechanism: potentiate 1+ nodes 
which spreads, and then stimulate 1+ other nodes. Any nodes both 
stimulated and potentiated change their magnitude, others that are only 
stimuated are not changed, or at least not as much. 
4/15/99 

Add Group (int level) which will go from POV to dist=level and from 
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there force all children of dist= (level-1) to position themselves 

on parent (dist^level) , and travel back up proximally to POV. Subsequent 

invocations on (level-1) will group things reasonably. 

V 

public class DataSea extends Object { 

static GUI gui; // The GUI passed to the DataSea constructor, which created us 
static Node current CNode =nul 1 ; // to link POV to easily 
static Node CN; // to link POV to easily 
static Node Notes; // to link POV to easily 

static Node Myself; // This is a self -node, one which can be used to show the 
DataSea 

// program itself 

static Node Root; 

static String useless_words ; // exclude these ... make exclusion list, discard 
static Node Thesaurus_node ; 
static Populate pop; 
// static Node BG; 
static Node POV = null; 

static Vector node_vec; // holds all nodes for searching later 

static Vector list_vec; // holds nodes for passing between routines 

static Vector big_mag_node_vec; // holds nodes for passing between routines 

static int GlobalDistalCount = 0; 

static int event_counter = 0; 

Vector GlobalVec = null; 

Vector unprocessed_vec; 

// int maxnodes=1000 ; 

static int link_ID - 0; 

int POV_namer = 0 ; 

static boolean needdistupdate=f alse ; 
static boolean the ta_org= true; 

static double delta_dist = 0.1; // used to increment Node.dist when types are 
same 

boolean whats = false; 



public DataSea (Object gui_argument) { // Constructor 

gui = (GUI)gui_argument ; // Now we can refer to our creator 
this. init () ; 

} // end DataSea constructor 

public void init () { 

pop - new Populate (this) ; 

init_useless_words () ; 
if (Myself == null) { 

} 
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return; 

} 

/** 

** init_useless_words 
★ * 

*/ 

public void init_useless_words () { 
int i, size; 
Node child; 

String w; 

w ■ "a an any are as at be by fix have has html if is rel see the to me not on 
pdt public "; 



w 




w+» 


this written about how's going would be it"; 


w 




w+" 


said says with you don't forget close please your" 


w 




w+" 


for next turn dear named my day happy input" ; 


w 




w+" 


interesting believes of most"; 


w 




w+" 


yesterday today tomorrow lastweek thisweek"; 


w 




w+ " 


--<>=&[] \\ /.;: ."; 


w 




w+ » 


Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"; 


w 




w+" 


1999 2000"; 



w = w+" 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15"; 

w = w+" 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31"; 

// Ignore case 

useless_words = w . toLowerCase ( ) ; 

//System. out . println ( "Useless_words : " +useless_words) ; 
return ; 

} // end init_useless_words 
/*★ 

** reset_node_IDs 
* * 

*/ 

public void reset_node_IDs () { 
int size, i; 
Node node, child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . elementAt (i) ) ; 

node .ID = 0 ; 

} 

} // end reset_node_IDs 
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10 



15 



/** 

** cats Lift mag of downstream nodes of same type. 
** If different type, lift half and quit 

*/ 

public void cats (String words [] , int num_words) { 
int i, size- 
Node node, child; 

if (null (node = f igure_out_node ( " cat s " , words, num_words) ) ) 
return; 

reset_node_IDs ( ) ; 

node . lift (2) ; // make sure the starting point isn't left in the dust 



size - node . Links . size () ; 
for (i=0; i<size; i++) { 

2 0 child « node.getNodeAtLink(i) ; 

if ( child. hasLargerDistThan (node) ) { 

System. out .print In ("cats " +child . Name) ; 
cats (node, child, i+1) ; 

} 

25 } 

} // end cats 
/** 

3 0 ** cats Show categories (ANs) from node by calling new_back_r on ANs hit > 

once 
** 

*/ 

public void cats (Node caller, Node node, int id) { 
3 5 int i, size; 

Node child; 

if ( node == null) 
return; 

40 

if (node. ID != 0) 

node. ID = id; 

else { 

back_r (caller , node, -10); 
45 //new_back_r (caller , node, -10, -10); 

return; 



size = node . Links . size () , 
5 0 for ( i=0 ; i<size ; i++) { 
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child = node .get NodeAt Link (i) ; 

if ( child. hasLargerDistThan (node) ) { 

System. out .print In ( "cats "+child .Name) ; 

cats (node, child, id); 

} 

else { 

System. out .print In ("cats halting on "+child .Name) ; 

} 

} 

} // end cats 



/** 

** magdownstream Lift mag of downstream nodes of same type. 
** If different type, lift half and quit 

*/ 

public void magdownstream (String words [], int num_words) { 
int i, size; 
Node node, child; 

if (null == (node = figure_out_node ( "magdownstream" , words, num_words) ) ) 
return; 

node . lift (2) ; // make sure the starting point isn't left in the dust 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node .get NodeAt Link (i) ; 

if (child. hasLargerDistThan (node) ) 

if (node .goesDownstreamTo (child) && node . Type==chi Id . Type) { 
child. lift (2) ; 

System. out .print In ( "magdownstream " +child . Name) ; 
magdownstream (child) ; 

> 

else { 

child. lift (2) ; 

Sys tern. out .print In ("magdownstream halting on " +child .Name) ; 

} 

> 

} // end magdownstream 
/* * 

** magdownstream 
* * 

*/ 

public void magdownstream (Node node) { 
int i, size; 
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Node child; 

if (node==null ) 
return ; 



size = node . Links . size () ; 
for <i=0; i<size; i++) { 

child = node .get Node AtLink(i) ; 

if (child. hasLargerDistThan (node) ) 

if ( node. goesDownstreamTo (child) && node .Type ==chi Id. Type) { 
child. lift (2) ; 

System. out . print In ("magdownst ream " +child .Name) ; 
magdownst ream (child) ; 

} 



else { 



child. lift (1) ; 

System. out .println ( "magdownst ream halting on "+child.Name) ; 

} 



} // end magdownst ream 



/* * 

** method backs amplify mag going backwards, spread to first children also. 

Calls new_back_r 
*/ 

public void backs (String [] words, int num_words) { 

int i, size; 

Node node, tnode; 

if (num_words<l) 
return; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num__words— 1) 

node = gui . lastNode; 

else 

node = find_node_named (words [1] ) ; 

if (words [0] . equal slgnoreCase ( "whats" ) ) { 
whats = true; 

} 

// CHECK FOR ERRORS 

if (node==null) { 
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if (num_words>l) 

GUI . WARNING (0 , "DataSea .backs " , "Can 1 1 find node "+words[l]) ; 

else 

GUI . WARNING ( 0 , "DataSea .backs " , "Neither Name given nor existing 

lastNode . " ) ; 

return; 

} 

else 

GUI. P(l, "DataSea. backs", "Found node named • "+node .Name+" 1 " ) ; 

backs (node) ; 

} 



/★* 

** method backs amplify mag going backwards, spread to first children also. 

Calls new_back_r 
*/ 

public void backs (Node node) { 
int i, size; 

boolean Saved_S top Spread = node . StopSpread; // Temporarily change it 
node . StopSpread = true; 

GUI . SavedNode = node; // used by 'why' later 

// Sy s t em. out .print In ("backs () : new_back_r ( "+node .Name+" ) " ) ; 
//new_back_r< (Node) null, node, 0, false); 

Node tn=nul 1 ; 

// for children 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (node. getNode At Link (i) ) ; 

if (tn.dist != -1) { // That is, there is a path to POV from here ... 
//System. out . print In (" ") ; 

//System. out .print In ("backs () : new_back_r ( " +tn . Name+ " ) " ) ; 
new_back_r ( (Node) node, tn, 0, false); 

} 

} 

// end for children 

node . StopSpread = Saved_StopSpread; // Restore it 
return; 

} // end backs 
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/* * 

** method back amplify mag going backwards, calls back_r 

*/ 

public void back (String [] words, int num_words) { 
int i, size; 
Node node, tnode; 

if (null == (node = f igure_out_node ( "back" , words, num_words) ) ) 
return; 

if (words [0] . equals IgnoreCase ("what s") ) { 
what s - t rue ; 
} 

// NOW, MAKE RECURSIVE CALL 

set_Tdist_Start (POV) ; // NEED FOR SETTING VARIABLE ' TDIST 1 

back_r ( (Node) null, node, 0) ; 

return; 

} // end back 



/** 

** method new_back_r amplify mag going backwards 

*/ 

public double new_back_r (Node caller, Node child, int current_transition_count , 
boolean previously_entered_AN) { // returns product of accumulated CS ' s 
int i, size, passed_transition_count=current_transition_count ; 
double caller_mag, ret_value=0 . 0 , recursion_value=l . 0 ; 
Node grand_child; 

String caller_name = 11 (caller_name is null)"; 

char poll, pol2 ; // the polarization symbols for links \ 
boolean entered_AN=f alse; //we can start on an AN and then exit a string of 

them, that's OK, 

// so we need to see if we both enter and exit ANs 

if (child == null) 

return (0 . 0) ,- 
if (child == Root) 

return (0.0) ; 

String Cn = " caller= " +gui . node_to_string (caller) ; 
String cn = 11 child=" +gui . node_to_st ring (child) ; 
String gen; 

if (child. dist <= 2) { // stop near POV 

GUI. P(l, "back_r", "OK, stopping near POV at child="+cn) ; 
return (1) ; 

} 

if (current_transition_count > GUI .max_transition_count) { 

// 
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if (caller .Debug | | child. Debug) 

gui.pC'nbr: current_transition_count > GUI . max_transition_count : 
"+Cn+cn) ; 

return (0) ; // Need to return 0 which gets multiplied by prior recursion 
5 values . . . 

// want this thread to go backwards with the message 'don't 

magnify' 

} 

10 if (! caller . isAN && child, isAN) // Sense going into an AN from a non-AN 

previously_entered_AN=true ; 

//HERE 

15 size = child . Links . size () ; 

for (i=0; i<size; i++) { 

grand_child = child .getNodeAt Link (i) ; 

gen = " grand_child="+gui . node_to_string (grand_child) ; 
if (grand_child==POV) 
2 0 {return(l .0) ; } 

if (grand__child== caller) 

{continue; } 
if (grand_child. dist>-l 

&& !grand_child.hasLargerDistThan (child) ) // Here WE CHECK ORDER 

2 5 OF NODES 

{ 

entered_AN=previously_entered_AN; // reset 

if (Ichild.isAN && grand_child . isAN) // Sense going into an AN from a 

non-AN 

30 { 

// Entering AN 

entered_AN=true ; 

if (grand_chi Id. Debug) gui.pC'nbr: Entering grand_child AN: 

"+Cn+cn+gcn) ; 

35 ~ } 

if ( previous ly_entered_AN && !grand_child. isAN) // Exiting, don't pursue 
into and out of an AN 

// Exiting AN 

{ 

4 0 if (child. Debug || grand_chi Id . Debug) 

gui.pC'nbr: Exiting AN, previously_entered_AN=true , g-child!=AN 

"+Cn+cn+gcn) ; 

cont inue ; 
} 

4 5 // RECURSION Here 

pol2 = child. getPol (grand_child) ; 
if (pol2=='+>) { 

// Increment tran- count, 

recurse 
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if (grand_chi Id. Debug | | child. Debug) gui.pC'nbr: + pol and 
recursing to grand_child : < n +Cn+cn+gcn) ; 

recursion_value = new__back_r (child, grand_child, 
l+passed_transition_count, entered_AN) ; // recur se on any, check Type in 
5 beginning 

} 

else { 

// Just recurse 

if (grand_chi Id. Debug | | child. Debug) gui . p ( "nbr : not + pol but 
10 recursing to grand_child: < " +Cn+cn+gcn) ; 

recursion_value = new_back_r (child, grand_child, 
passed_transition_count , entered_AN) ; // recurse on any, check Type in beginning 

> 

if (recursion_value > ret_value) { // Notice success reaching 

15 back home 

if (grand_chi Id. Debug | | child. Debug) gui.pC'nbr: Success 
sensed distal to: < " +Cn+cn+gcn) ; 

ret_value = recurs ion_value ; 

} 

20 } 

} 

ret_value *= child. pot enti at ion_mag; 
if (ret_value > 0.0) { 

// 

25 if (caller .Debug || child. Debug) gui.pC'nbr: mag'ing child: "+Cn+cn+Cn) ; 

child. set_mag(ret_value * Node . EMPHASIZED_MAG) ; 
}■ 

return (ret_value) ; 
} // end new_back_r 

30 



/** 

** method back_r amplify mag going backwards, // 6/7/99 recurse if type==AN 

35 */ 

public double back_r (Node caller, Node child, int current_transition_count ) { 
// returns product of accumulated CS ' s 

int i, size, passed_transition_count=current_transition_count ,- 
double caller_mag, ret_value=0 . 0 , recurs ion_value=l . 0 ; 
4 0 Node grand_child; 

String caller_name = " (caller_name is null)"; 



if (child == null) 

return (0.0) ; 

45 



if (child. dist <= 1) { // stop near POV 
return (1) ; 
50 } 



-317- 



PATENT 



size = child. Links . size () ; 
for (i=0; i<size; i++) { 

grand_child = child. getNodeAt Link (i) ; 
if (grand_child= s =POV) 

return (1.0) ; 
if <grand_child! =null) { 

if (grand_child.dist>-l 

&& grand_child.hasSmallerDistThan (child) ) // Here WE CHECK ORDER 

OF NODES 

{ 



// RECURSION Here 

recurs ion_value = back_r (child, grand_child, 
passed_transition_count) ; // recur se on any, check Type in beginning 

if ( recur sion_value > 0) 

if ( recur sion_value > ret_value) { 
ret_value = recurs ion_value ; 

} 

} 

} 

} 

if (caller !=null) 

caller_name = caller .Name, - 
ret_value *= child. potentiation_mag; 
if (ret_value > 0.0) { 

child. set_mag(ret_value * Node . EMPHASIZED_MAG) ; 
} 

return (ret_value) ; 
} // end back_r 



/* * 

** method threshold_threshold_back_r amplify mag going backwards, // 6/7/99 

recurse if type == AN 
*/ 

public double threshold_back_r (Node caller, Node child) { // returns product of 
accumulated CS 1 s 
int i, size; 

double caller_mag, ret_value=0 . 0 , recurs ion_value=l . 0 ; 
Node grand_child; 

String caller_name = " (caller_name is null) " ; 

if (child == null) 

return (0 . 0) ; 
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if (child. dist <= 1) { // stop near POV 
return (1) ; 
} 

child. lift_to_threshold() ; 

size = child . Links . size () ; 
for (i=0; i<size; i++) { 

grand_child = child . getNodeAtLink (i) ; 
if (grand_child==POV) 

return (1.0) ; 
if (grand_child! =null) { 
if (grand_child.dist>-l 

&& grand_child.hasSmallerDistThan (child) ) // Here WE CHECK ORDER 

OF NODES 

{ 

// RECURSION Here 

recursion__value = threshold_back_r (child, grand_ child) ; // 
recur se on any, check Type in beginning 

} 

} 

} 

return (ret_value) ; 

} // end threshold_back_r 



J -k * 

** remember set Node.min_mag to the current mag (generally, don't allow it 
to shrink) 
*★ 

*/ 

public void remember () { 
int i, size; 
Node node=null; 
Node child=null; 

if (gui . lastNode == null) 
return ; 

GUI . P(0, "remember" , "lastNode = "+gui . lastNode) ,- 

GUI . P (0, "remember" , "lastNode .Name - " +gui . lastNode . Name) ; 

GUI . P ( 0 , " remember" , " lastNode . Links . size ( ) = " +gui . lastNode . Links . size ( ) ) ; 

size = gui . lastNode . Links . size () ; 
for (i=0; i<size; i++) { 

child - (Node) (gui . lastNode .getNodeAtLink (i) ) ; 

//if (child. dist == gui . lastNode . dist +1) 
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if (child. dist > gui . lastNode . dist ) 

remember_r (gui . lastNode, child) ; 



} // end remember 



/* * 

* * go_unt i 1_AN_DN 

* * 

*/ 

public void go_until_AN_DN (Node node, boolean did__trans_to_AN) { 
int i, size; 
Node child; 

boolean is_trans_to_AN=f alse , is_trans_to_DN=f alse ; 



GUI . P ( 0 , "go_unt il_AN_DN" , node . Name+" , did_trans_to_AN= " +did_trans_to_AN) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node.getNodeAtLink(i) ; 

if ((child. dist == node . dist+delta_dist ) || (child. dist == 
(int) (node. dist) +1) ) 
{ 

if (Jnode.isAN && child. isAN) 

i s_trans_to_AN = true; 
if (node.isAN && ! child. isAN) 

is_trans_to_DN = true; 

if (did_trans_to_AN && is_trans_to_DN) { 

GUI . P ( 0 , "go__until_AN_DN" , child . Name+" , halted: 

trans_to_DN=true") ; 

break; 

} 

go_until_AN_DN (child, ( is_trans_to_AN || did_trans_to_AN) ) ; 

} 

} 



} // end go_until_AN_DN 



** like 
* * 

*/ 

public void like (Node node) { 

go_unt i 1_DN_AN ( ( Node ) nu 1 1 , node , 1 + ' ) ; 
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go_unt il_DN_AN ( ( Node ) nul 1 , node , 1 - ' ) ; 
} // end like 



/** 

* * go_unt i 1_DN_AN 
** 

*/ 

public void go_until_DN_AN (Node caller, Node node, char sign) { 
int i, size, dist_diff; 
Node child; 

boolean is_trans_to_AN=f alse ; 

if (node == null) 
return ; 

GUI . P(0, "go_until_DN_AN" , "direction ' ,, +sign+" 1 , "+ node . Name) ; 
if (caller! =null) 

caller .more_CS (node) ; 



if (sign=='+') 

dist_diff = 1; 

else 

dist_diff = -1; 



size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node . getNodeAtLink ( i ) ; 

if ( (child. dist == (node . dist+dist_dif f ) ) && child. dist > 2) { 
if (Inode.isAN && child. isAN) 

is_trans_to_AN = true; 
if ( i s_t r ans_t o_AN ) { 

GUI . P (0 , "go_until_DN_AN" , child . Name+" , halted: 

trans_to_AN=true" ) ; 

break; 

} 

go_until_DN_AN (node, child, sign); 

} 

} 

return ; 

} // end go_until_DN_AN 



/** 

** addCNodeBetweenNodes : DON'T USE: add a modulating CNode to the link 
between nodel and node2 
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*/ 

public void addCNodeBetweenNodes (Node nodel, Node node2, Node CNode) { // CSs 



Link link = nodel .get LinkTo <node2) ; 
link . addCNode (CNode) ; 

} // end addCNodeBetweenNodes 
/* * 

** remember__r set CS between parent and node based on current mag 
* * 

*/ 

public void rememberer (Node parent, Node node) { 
int i, size; 
Node child=null; 
double cs, old_cs; 

if (parent==null) 

return; 
if (node==null) 

return; 

cs = parent .get_CS (node) ; 
old_cs = cs; 

Link link = parent . get LinkTo (node) ; 
if (link null) { 

gui. ERROR (0, "remember^", "link is null to " +node.Name); 

return; 

} 

i f ( node . mag > = Node . MAX_MAG ) 

cs *= 1.4; 
else if (node. mag >= Node . BIG_MAG) 

cs *= 1.2; 
else if (node. mag >= Node ♦ DEFAULT__MAG) 

else 

CS /= 1.2; 
link . set_CS (cs) ; 

GUI . P (0, "rememberer" , node .Name +*• . CS changing from " +gui . prec (old_cs , 3 ) +" -> 
"+gui .prec (cs, 3) ) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node .get NodeAtL ink (i) ; 



PATENT 



//if (child. dist == node.dist+1) 

if ((child. dist == node . dist+delta_dist ) || (child. dist 
(int) (node. dist) +1) ) 

remember_r (node, child); 

} 

} // end remember_r 



10 

/* * 

** forget set Node . min_mag to the current mag (generally, don't allow it to 
shrink) 
* * 

15 */ 

public void forget () { 
int i, size; 
Node node; 
Node child; 

20 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec. element At (i) ) ; 

node.min_mag = node. mag; 

25 } 



30 



} // end forget 



/* * 

** showe vents 

35 

*/ 

public void showevents () { 
int i, size; 
Node node; 
4 0 Node child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 

4 5 if ( inode. isEvent) { 

if (null != node .hasSiblingOf Type ( "Event" ) ) { 
if (node. mag < Node . B I G_MAG ) 

node . set_mag (Node . BIGJYIAG) ; 

else 

5 0 node . set_mag (Node . MAXJ4AG) ; 
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} 
} 

> 

return ; 

} // end showevents 
/** 

** showtime 
*/ 

public void showtime () { 
int i, size; 
Node node; 
Node child; 

mag_r( (Node) null, pop . TimeLine, "distal", 3, 0, "+", false); 

/*************************************** 

size = node_vec . size () ; 
for (i=0 ; i<size; i++) { 

node = (Node) (node_vec. element At (i) ) ; 
if (node . isEvent) { 

if (node. mag < Node . MAX_MAG) 

node . set_mag (Node . MAX_MAG) ; 

} 

} 

***************************************/ 
return ; 

} // end showtime 
J * * 

** peg set Node.min_mag to the current mag (generally, don't allow it to 
shrink) 
*★ 

*/ 

public void peg () { 
int i, size; 
Node node; 
Node child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . elementAt (i) ) ; 

node . min_mag = node . mag ; 

} 



} // end peg 



/* 

* f i nd_AN_named 
*/ 

public Node f ind_AN_named (String name) 

{ 

int i, size; 

Node tn=null, ret_node = null; 
size = node_vec . size ( ) ; 

GUI.P(2, "f ind_AN_named" , "size="+size+" name="+name) ; 
for (i=0; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
if ( tn. Name. equal slgnoreCase (name) && tn.isAN) { 
GUI . P ( 2 , " DS . f ind_AN_named " , " Found " +name ) ; 
ret_node = tn; 

} 

} 

if (ret_node == null) 

GUI. ERROR (2, "DS . f ind_AN_named" , "Null node for name "+name) ; 
else 

GULP (2, "DS . f ind_AN_named" , "FOUND node for name "+name) ; 

return (re t_node) ; 

} // end f ind_AN_named 

/* 

* f ind_DN_named 
V 

public Node f ind_DN_named (String name) 

{ 

int i, size; 

Node tn=null # ret_node = null; 
size = node_vec . size ( ) ; 

GUI . P (2, "f ind_DN_named" , " size=" +size+" name= " +name) ; 
for (i=0; i<size; i++) { 

tn ■ (Node) (node_vec . element At (i) ) ; 

if (tn. Name .equal slgnoreCase (name) && tn . Type . equal slgnoreCase ( "DN" ) ) 
GUI . P ( 2 , " DS . f ind_DN_named " , » Found " +name ) ; 
ret_node = tn; 

} 

} 

if (ret_node =- null) 

GUI.ERROR(2, " DS . f ind_DN_named " , "Null node for name "+name) ; 
else 
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GULP (2, "DS.find_DN_named", "FOUND node for name "+name) ; 

return (ret_node) ; 

} // end f ind_DN__named 

/** 

** moreless moreless adjust mags to see structure of nodes better, count 
num visible 

* * 

*/ 

public void moreless (String cmd) { 
Node node; 

int count =0 ; 

for (int i=0; i<node_vec . size ( ) ; i++) { // count them 

if ( (node= (Node) (node_vec .element At (i) ) ) != null) 
if (node. mag > gui . text_threshold) 
count ++; 

} 

if (gui . desired_visible_count ==0) { 

gui . desired_visible_count = count; 

GUI . P (0 , "moreless" , "desired_visible_count initially set to 
"+gui . desired_visible_count) ; 

} 

if (cmd. equals ( "m" ) ) { 

gui .desired_visible_count *= 1.5; 

GUI . P (0 , "moreless" , "desired_visible_count up to 
"+gui . desired_visible_count) ; 

auto_f latten () ; 

} 

else { 

gui . desired_visible_count /= 1.5; 
if (gui . desired__visible_count < 5) 

gui .desired_visible_count = 5; 
GUI . P (0, "moreless" , "desired_visible_count down to 
"+gui . desired_visible_count) ; 

auto_f latten ( ) ; 

} 

return; 

} // end moreless 
J * * 

** auto_f latten automatically adjust mags to see structure of nodes better, 
count num visible 

* * 

*/ 

public void auto_f latten () { 
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int i, size, count =10000 00 , iteration_count = 0; 
Node tn, node; 

while ((count > (gui . desired_visible_count+5) ) (iteration_count++ < 100)) { 
// impose a limit of 100 tries 
count = 0 ; 

for (i=0; i<node_vec . size ( ) ; i++) { // count them 

if ( (node= (Node) (node_vec . elementAt (i) ) ) != null) 
if (node -mag > gui - pos_threshold) 
count ++ ; 

} 

GUI.P(0, "DataSea. auto_f latten first-half", iteration_count+ M ) + + "+count+" 
nodes > threshold, want n +gui .desired_visible_count) ; 

if (count > gui . desired_visible_count) { // raise threshold 
sharpen () ; 

} 

} 

System, err .print In ( 11 count =" +count+" , gui . desired_visible__count = 
"+gui . desired_visible_count ) ; 

// count and decrease the threshold if needed 
iteration_count = 0 ; 

while ((count < (gui .desired_visible_count) ) && (iteration_count++ < 100)) { // 
impose a limit of 100 tries 
count = 0 ; 

for (i=0; i<node_vec . size ( ) ; i++) { // count them 

if ( (node= (Node) (node_vec . elementAt (i) ) ) ! = null) 
if (node. mag > gui .pos_threshold) 
count ++; 

} 

GUI.P(0, "DataSea. auto_f latten second-half", iteration_count+" ) - - "+count+ ,! 
nodes < threshold, want "+gui . desired_visible_count) ; 

// adjust the threshold 

if (count < gui . desired_visible_count ) { // raise threshold 
f latten () ; 
} 

} 

return ; 

} // end auto_flatten 
/** 

* * DataSea . show_node_vec 
** 

*/ 

public int show_node_vec ( ) { 
int i; 
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for (i-0; i<node_vec . size ( ) ; i++) 

if (node_vec . element At (i) != null) 
GUI . P (1 , "DataSea. show_node_vec" , 
( ( (Node) node_vec . element At (i) ) .Name) ) ; 
return (0) ; 

} 

I * * 

* * DataSea . add_to_node_vec 
** 

*/ 

public static int add_to_node_vec (Node dn) { 
if (node_vec == null) 

node_vec = new Vector (100) ; 
node_vec . addElement (dn) ; 
// MAYBE NOT A GOOD IDEA TO LINK ROOT TO EVERYTHING 3/24/99 
// if (Root != null) 

// Root. link (dn) ; 

return (0) ; 

} 

/* * 

** DataSea. clear_list clear the vector used to pass groups of nodes 

* * 

*/ 

public static void clear_list () { 
if ( list_vec == null) 

list_vec = new Vector (10); 
else 

list_vec . removeAllElements ( ) ; 

return; 
} // end clear_list 

/** 

** DataSea.add_to_list add_to the vector used to pass groups of nodes 

* * 

*/ 

public static void add_to_list (Node node) { 
if (list_vec == null) 

list_vec - new Vector (10) ; 
list_vec .addElement (node) ; 

return ; 

} // end add_to_list 
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/** 

** DataSea. stored_into_list_already clear the vector used to pass groups of 
nodes 
* * 

*/ 

public static boolean s t or ed_into_list_al ready (Node node) { 

if (list_vec . contains (node) ) 
return (true) ; 

else 

return (false) ; 
} // end stored_into__list_already 



** cl 1 create_and__link ' 

★ * 

*/ 

public Node cl (String Name) { 
Node tnode; 

tnode = f ind_node_named (Name) ; 
if (tnode == null) 

tnode = cMName, "DN" , " Link . DEFAULT_CS) ; 

// else 

// this . link (tnode) ; 

return (tnode) ; 

} 

public Node cl (String Name, double cs) { 
Node tnode; 

// tnode = cl(Name, "DN" , "", cs) ; 
tnode = DataSea. find_node_named (Name) ; 
if (tnode == null) 

tnode = cl(Name, "DN", "", cs) ; 
return (tnode) ; 

} 

public Node cl (String Name, String Type) { 
Node tnode ; 

tnode = cl(Name, Type, »» # Link . DEFAULT_CS) ; 
return (tnode) ; 

} 



public Node cl (String Name, String Type, String Desc) { 
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Node tnode; 

tnode = cl (Name, Type, Desc, Link . DEFAULT_CS ) ; 

return (tnode) ; 

} 

5 

public Node cl (String Namel, String Typel, String Name 2 , String Type2) { 
Node nodel, node 2 , tnode ; 
nodel = pop . cr eat e_node (Namel, Typel); 
node2 = pop . create_node (Name2 , Type2) ; 
1 0 nodel . link (node2 ) ; 

// this . link (nodel) ; 

return (node2) ; 
) 

15 // new Node sets CS if available into Node, link() sets it into proper CS_R or 

CS_L 

public Node cl (String Name, String Type, String Desc, double CS) { 
Node tnode; 

tnode = pop . cr eat e_node (Name, Type, Desc) ; 
20 // this, link (tnode, Desc, CS) ; 

return (tnode) ; 
} 



2 5 public Node cl (String Name, String Type, String Desc, 

int x, int y) { 

Node tnode ; 

tnode = cKName, Type, Desc, Link . DEFAULT_CS) ; 
tnode .X = x ,- 

3 0 tnode . Y = y; 

return (tnode) ; 

} 



35 /*************************************** 

public Node cl (String Name, String Type, String Desc, 
int x, int y, int size_x, int size_y) { 

Node tnode ; 

tnode = cKName, Type, Desc, Link . DEFAULT_CS) ; 
4 0 tnode. X = x; 

tnode. Y - y; 
tnode. size_x = x; 
tnode. size_y = y; 
return (tnode) ; 

45 } 

public Node cl (String Name, String Type, String Desc, String Data, 
int x, int y, int size_x, int size_y) { 

Node tnode ; 

50 tnode = cKName, Type, Desc, Link . DEFAULT_CS ) ; 
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tnode .X = x ; 
tnode.Y = y; 
tnode. size_x - x; 
tnode. size_y = y; 
5 tnode. Data [0] = Data; 

return (tnode) ; 

} 

****************************************/ 
10 // end cl 



15 

/****************************************** 

** DataSea. doner 
** 

2 0 public Node doner (Node dn, String name) { 

Node retdn; 

retdn - new Node ( ) ; 
retdn. Name = name; 
if (dn != null) { 
2 5 retdn. Name = dn.Name+" . " ; 

// maxnodes is also the number of how many nodes have been created. 

retdn. Name = retdn. Name + 11 ( " + maxnodes + ")" ; 

} 

return (retdn) ; 

30 } 

public Node doner (Node dn) { 
Node retdn ; 

retdn = doner ( (Node) dn, "NoName"); 
return (retdn) ; 

35 } 

public Node doner (String name) { 
Node retdn; 

retdn = doner ( (Node) null, name) ; 
return (retdn) ; 

40 } 

public Node doner () { 
Node retdn; 

retdn = cloner((Node )null, "NoName"); 
return (retdn) ; 
45 } 
*/ 

/* 

* f ind_node_naraed (overloaded) First look for AN, then any if not found 
50 */ 
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static public Node f ind_node_named (String name) 

{ 

int i, size; 

Node tn=null, ret_node = null; 

size = node_vec . size () ; 

// Check for AN first, then anything 

if ( (ret_node=f ind_node_named (name, "AN")) == null) 

ret_node=f ind_node_named (name , (String) null ) ; 

return (ret_node) ; 

} // end f ind_node_named 

/* 

* find node named name, with Type of type 
*/ 

static public Node f ind_node_named (String name, String type) 

{ 

int i, size; 

Node tn=null, ret_node = null; 

size = node_vec . size () ; 

for (i=0 ; i<size ; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
if (type == null) { 

if (tn. Name .equal slgnoreCase (name) ) 

ret_node = tn; 
} else { 

if (tn .Name . equal slgnoreCase (name) && 
tn . Type . equal slgnoreCase (type) ) 

ret_node = tn; 

} 

} 

return ( ret_node ) ; 

} // end f ind_node_named 



/* * 

** create_note see if it exists, create DN if not, return it 
** Automatically create a matching AN for a DN 

*/ 

public Node create_note (String Desc) { 
int i ; 

Node tnode=null; 

GUI.P(0, "create_note" , M Desc="+Desc) ; 
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tnode = new Node ("Note", "DN", Desc) ; 
return (t node) ; 
} // end create_note 

5 /** 

** normalize 
* * 

*/ 

static public double normalize () { 
10 int i, size; 

Node tn; 

Node max_mag_node=null; 

double max_jmag=0, normal ization_f actor =1 , delta; 



15 



20 



if ( !GUI . doNormalization) { 

GUI . P (1, "normalize" , "normalization off"); 
return (max_mag) ; 

} 



// f or all nodes 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

tn = (Node) (node_vec .element At (i) ) ; 
2 5 if (tn.mag > 11) 

tn.mag = 10+Math. sqrt (tn.mag- 10 . 0) , 
if (tn.mag > max_mag) { 
max_mag = tn.mag; 
max_mag_node = tn; 

30 } 



// end for all nodes 



3 5 if (max_mag < 10.0) { 

GUI . P ( 1 , " normal i z e 11 , max_mag_node . Name+ " , max_mag= " +max_mag+ " , 
normal iz at ion_f act or=" +normalization_f actor) ; 
return (max__mag) ; 
} 



40 



45 



normal iz at ion_f act or = 10.0 * 1 . 0/max_mag; 

GUI . P ( 1 , " normalize " , max_mag_node . Name+ 11 , max_mag= " +max_mag+ » 
normalization f actor=" +normalization factor) ; 



// for all nodes 

for (i=0; i<size; i++) { 

tn = (Node) (node_vec .element At (i) ) ; 

tn. set_mag_no_hi story (tn.mag * normal i z at ion_f actor) ; 

50 } 
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// end for all nodes 

/**************************************************************** 
System. out .println ( "normalize : log (max_mag) ="+Math. log (max_mag) ) ; 
System. out .println ( "normalize : 

log (normal ization_f act or) ="+Math. log (normal ization_f actor) ) ; 

System. out .print In ("normalize: log (1) ="+Math. log (1) ) ; 

System. out .println ( "normalize : exp (0) ="+Math . exp (0) ) ; 

System. out . println ( "normalize : exp (1) =" +Math . exp ( 1) ) ; 

System. out .println ( "normalize : log (1 . 7) ="+Math. log (1 . 7) ) ; 

System. out .println ( "normalize : log (3 . 7) =" +Math . log (3 . 7) ) ; 

**************************************************************** 

if (POV != null) { 

// for children 

size = POV. Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (POV. get NodeAt Link (i) ) ; 

if (tn.mag < Node . BIG_MAG) 

tn . set_mag (Node . BIG_MAG) ; 

} 

// end for children 

} 

return (max_mag) ; 
} // end normalize 

/** 

** flatten add constant to everything, and then after normalization, all's 
flatter 
* * 

*/ 

public double flatten () { 
int i, size; 
Node tn; 

double max_mag=0 . 0 , delta_mag=0 . 0 , current_mag=0 . 0 , new_mag=0 . 0 ; 

size = node_vec . size () ; 

// for all nodes 

for (i=0; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 

current_mag = tn.mag; 

delta_mag = (Node . MAX_MAG - current_mag) /10 ; 
new_mag = current_mag + delta_mag; 
tn.se t_mag_no_hi s t ory ( ne w_mag ) ; 

} 

// end for all nodes 
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10 



15 



30 



GUI.P<0, "flatten", "Done.") ; 
return (max_mag) ; 
} // end flatten 



/** 

** sharpen subtract constant to everything, and then after normalization, 
all's less flat 
* ★ 

*/ 

public double sharpen () { 
int i, size; 
Node tn; 

double max_mag=0 . 0 , delta_mag=0 . 0 , current_mag=0 . 0 , new_mag=0 . 0 ; 



size = node_vec . size ( ) ; 

// for all nodes 

for (i=0; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
2 0 current_mag = tn.mag; 

delta_mag = (Node . MAX_MAG - current_mag) /10 ; 

new_mag = current_mag - delta_mag; 

tn. set_mag_no_hi story (new_mag) ; 

} ~ " 

2 5 // end for all nodes 



GUI. P(0, "sharpen", "Done."); 
return (max_mag) ; 
} // end sharpen 



/** 

** f ind_common_nodes_to FORGET THIS 

*/ 

public void f ind_common_nodes_to (Node node) { 

3 5 int i, size; 

Node tn ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

4 0 tn = (Node) (node_yec . element At (i) ) ,- 

if (tn.isAN) { 

GUI . P ( 0 , 11 f ind_common_nodes_t o " , " Got AN named " +tn . Name) 

} 

} 

4 5 } // end f ind_common_nodes_to 

/* * 

** DataSea . connect_up 
*/ 

50 public void connect_up (Node node) { 
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Node tn; 

GUI.P(0, "connect_up" , "Connecting up node " +node . Name ) ; 
} // end connect_up 

/** 

** DataSea.add 

★ * 

*/ 

public int add_to_unprocessed_vec (Node dn) { 
if (unprocessed_vec -- null) 

unprocessed_vec = new Vector (100, 10) ; 
unprocessed_vec . addE lenient (dn) ; 

GUI.P(0, "DS . add_to_unprocessed_vec" , "added node 11 +dn . Name+" , size="+ 
unprocessed_vec . size ( ) ) ; 
return (0) ; 
} // end add_to_unprocessed_vec 

/* * 

** DataSea . Postprocessor 
*/ 

public void Postprocessor () { 

// add code to have this read a vector of nodes which haven't been processed 
yet, 

// from vector unprocessed_vec, probably added to by ' DataSea. words_input ' 
Node tn; 

tn = (Node) (unprocessed_vec . element At (0) ) ; 
connect_up (tn) ; 

unprocessed_vec . removeElementAt (0) ; 
} // end Postprocessor 

/* * 

* * DataSea . add_POV 
** Create a new POV 

*/ 

public void add_POV () { 
Node tn; 

// add code to have this read a vector of nodes which haven't been processed 
yet, 

// from vector unprocessed_vec, probably added to by 1 DataSea . words_input 1 
if (POV null) { 
POV_name r + + ; 

POV = new Node (» POV " +P0V_namer , "POV", 

"" , 0, 0, 20, 10); 
//POV. isPolarized = false; 
POV.z = 0; 

GUI.P(0, "DataSea. add_P0V", "POV created: "+P0V.Name) ; 
} 

else { 
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GUI.PfO, "DataSea.add_POV", "POV already exists: "+POV.Name) ; 

} 

} // end add_POV 
/* * 

** DataSea.absorb_POV 
*★ 

*/ 

public void absorb_POV (boolean save) { 
Node child = null; 

if (POV == null) { 

GUI . P ( 1 / " absorb_POV" , " POV is null"); 
return; 

} 

if (save) { 

GUI .P(l, "absorb_POV" , "Saving the POV as a Context Node"); 
if (! POV. Name. substring (0,3) .equals ("POV")) { 

GUI. WARNING (0, " absorb_POV" , "POV. Name. substring (0,3) is " 
+POV . Name . substring (0,3) ) ; 

GUI . ERROR ( 0 , " absorb_POV" , 11 POV . Name isn * t POVxxx : " +POV . Name ) ; 
} else { 

POV. Name - " P" +POV_namer ; 
POV.isPOV = false; 
POV. setType ("CN" ) ; 

GUI. P ( 1, "absorb_POV", "Setting POV to null, Saved Name is < " +POV . Name+" > , 
Saved Type is < " +POV . Type+ " > " ) ; 

child = POV.getNodeAtLink(O) ; 
if (child != null) 

GUI .P(l, "absorb_POV" , "POV. Link [0] is "+ child. Name); 

else 

GUI .P(l, "absorb_POV" , "POV. Link [0] is NULL"); 

} 

} 

POV . unl ink_all ( ) ; 
if (save) { 

POV. link (child) ; 

save_l inks ( POV , POV) ; 

} 

POV = null; 
needdistUpdate=true ; 
return ; 

} // end absorb_POV 



/ * * 

** save links 
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*/ 

public void save_links (Node node, Node CNode) { 
int i, size; 
Node child; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child - node . getNodeAtLink (i) ; 

if (child. mag > 5) { 

save_l ink s_r (node, child, CNode) ; 

} 

) 

} // end save_links 
/* * 

** save_links_r 
* * 

*/ 

public void save_links_r (Node node, Node child, Node CNode) { 

int i, size; 

Node grand_child=null ; 

if (child. mag <= 5) 
return ; 

GUI.P(1, "save^inks^r" , " Parent ="+node .Name +" , Child="+child .Name+" . 
CNode = " +CNode . Name ) ; 

addCNodeBetweenNodes (node, child, CNode); 
size = child. Links . size () ; 
for (i=0 ; i<size; i++) { 

grand_child = child .getNodeAtLink (i) ; 

if ( (grand_child.mag > 5) && (grand_child . dist == 1+child.dist) ) 

{ 

save_links_r (child, grand_child, CNode); 

} 

} 

} // end save_links_r 



** DataSea .more_at tract ion 
★ * 

*/ 

public double more_at tract ion (boolean inverse_result ) { 
if (inverse_result == true) 
gui.magscale /= 1.5; 

else 

gui.magscale *= 1.5; 
return (gui .magscale) ; 
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/** 

* * 

** 

* * 



DataSea . more_repulsion 



public double more_repulsion (boolean inverse_result ) { 
if (inverse_result == true) 
10 gui .ThetaMultiplier -= . 1; 

else 

gui .ThetaMultiplier += . 1; 
return (gui .ThetaMultiplier) ; 

15 } 



/** 

2 0 ** set_should_we_pos 



public void set_should_we_pos () { 
int size, tsize, i, j ; 

2 5 Node tnode, child; 

size = node_vec . size () ; 
for (i=0; i<size; i++) { 

tnode = (Node) node_vec . elementAt (i) ; 

3 0 tsize = tnode .Links . size () ; 

for (j=0; j<tsize; j++) { 

child = tnode . getNodeAtLink { j ) ; 

tnode. setLinks_should_we_pos (child, true); // set link tnode -> 

child true 

35 } 

} 

} // end set_should_we_pos 



40 



/* 
* * 

45 **/ 

void clear_Tdist () { 
Node tnode; 
int size, i; 

GUI -P(l, "clear_Tdist 11 , "Clearing node_vec Tdists."); 
5 0 size = node_vec . size ( ) ; 
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for (i=0; i<size; i++) { 

tnode = (Node) node_vec . elementAt (i) , 

tnode.Tdist = -1; 

} 

return; 

} // end clearJTdist 



★ * 

10 **/ 

void clear_dist () { 
Node tnode; 
int size, i; 

GUI . P (1, "clear_dist" , "Clearing node_vec dists. 11 ); 
15 size = node_vec . size { ) ; 

for (i=0; i<size; i + + ) { 

tnode = (Node) node_vec . elementAt ( i) ; 
tnode . set_dist (-1) ; 

} 

2 0 return; 

} // end clear_dist 

/** 

* * calc_dist_between 

2 5 

*/ 

public double calc_dist_between (Node nodel, Node node 2) { 
int i, size; 
Node tn; 

30 

set_Tdist_start (nodel) ; 

GUI . P (0 , "calc_dist_between" , " " +node2 . Name+" is 11 +node2 . Tdist + " from 
"+nodel .Name) ; 
return (node2 .Tdist) ; 

35 

} // end calc_dist_between 

/* * 
** newtest 

40 

*/ 

public void newtest () { 
int i # size; 
Node child; 



45 



Node ruth = f ind_node_named ( "Ruth" ) ; 
show (ruth) ; 



50 
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Node Al = f ind_node_named ( "Al" ) ; 

Node A2 = f ind_node_named ( "A2" ) ; 

Node A3 = find_node_named("A3") ; 

Node A4 * find_node_named("A4") ; 

Node Bl = f ind_node_named ( "Bl" ) ; 

Node target = f ind__node_named ( "target" ) ; 

if (POV==null) { 

GUI .WARNING (0 , 11 DataSea . newtest " , "Need a POV"); 

return ; 

} 

set_Tdist_start (target) ; 

System . out . print In ( "Al . dist/Tdist= ( " +A1 . dist+" , " +A1 . Tdist +" ) " ) ; 
System . out . print In ( "A2 . dist/Tdist= ( " +A2 . dist+" , " +A2 . Tdist+" ) " ) ; 
System. out .println( "A3 .dist/Tdist= ("+A3 .dist + " , " +A3 . Tdist+" ) ") ; 
System . out . println ( "Bl . dist/Tdist= ( " +B1 . dist+" , " +B1 . Tdist+" ) " ) ; 
System. out .println("A4 ,dist/Tdist= ("+A4 .dist+" , "+A4 .Tdist+" ) ") ; 
System. out .println ("target .dist/Tdist= ("+target .dist+" , "+target . Tdist+" ) ") ; 

} // end newtest 
/* * 

** check_for_loop_beg inning 

** go backwards until we find dist going up 

*/ 

public boolean check_for_loop_beg inning (Node caller, Node node) { 
int i, size; 
Node child=null; 
boolean ret=false; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node .getNodeAt Link (i) ; 
if (child != caller) { 

if (child. dist <= 1) // We've gone all the way back to the POV 

return (ret) ; 
if (child. dist < node. dist) { 

System. out .println ( "CFLB : (child<node) N ( " +describe_node_dist (node) +" ) 

>C("+describe_node_dist (child) +" ) 11 ) ; 

if (true==check_for_loop_beg inning (node, child)) { 
ret = true; 

} 

node.Tdist = child. Tdist + 1; // if branch has high value of 
Tdist, propogate it 

} 

else 

if (child. dist > node. dist) { // May be on branch with reversal inside it 
System. out .println ( "CFLB : (child>node) N ( 11 +describe_node_dist (node) +") -- 
sense_rev-->C ( "+describe_node_dist (child) +") ") ; 

if (true==sense_rev(node, child) ) { // sense_rev will back up and 
increase Tdist 1 s 
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ret = true; 

node.Tdist = child. Tdist + 1; //continue increasing Tdist ' 

from sense_rev 

System. out . print In ( "CFLB : (child>node) N ( " +describe_node_dist (node) +") 
increasing Tdist after sense__rev- - >C ( " +describe_node_dist (child) +" ) 11 ) ; 

) 

} 

} 
} 

return (ret) ; 

} // end check_f or_loop_beginning 
/* * 

** sense_rev 
★ ★ 

*/ 

public boolean sense_rev (Node caller, Node node) { 

int i, size; 

Node child; 

boolean ret = false; 

size = node .Links . size () ; 
for (i=0; i<size; i++) { 

child = node .getNodeAt Link (i) ; 
if (child != caller) { 

if (child. dist > node.dist) { 

System . out . print In ( " sense_rev : (child>node) N ( " +describe_node_dist (node) +" ) 

>C<"+describe_node_dist (child) +") ") ; 

ret = sense_rev (node, child); 

if (ret) { // IF TRUE THEN WE ARE ON THE PATH THAT NEEDS TO BE 

CHANGED 

return (ret) ; 
} 

} 

if (child. dist <= node.dist ) { // FOUND REVERSAL POINT , INFORM CALLER 
THAT WE DID 

System. out .print In ( "sense_rev: (child<=node) N ( " +describe_node_dist (node) +" ) 
REVERSAL C ( " +describe_node_dist (child) +")") ; 

return (true) ; // don't change this yet 

} 

} 

} 

return (ret) ; 

} // end sense_rev 

// HERE HERE 
/** 

** describe node dist 
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*/ 

public String describe_node_dist (Node node) { 
int i, size; 
Node child; 

return ( node. Name+" ( "+node . dist+" , "+node .Tdist+" ) " ) ; 
} // end describe_node_dist 



/* 

** set_Tdist_start One- node version 
* ■* I 

void set_Tdist_start (Node parent) { 
int level=0; 

boolean complete=f alse, ret; 

if (parent ==null) { 

GUI . WARNING ( 0 , " set_Tdist_start (1) " , " parent = =nul 1 " ) ; 

return; 

} 

GUI . P(0, "set_Tdist_start (1) " , "Starting on "+parent .Name) ; 
clearJTdist () ; 

parent. Tdist = 1; // force this first one, then use recursion for others 
level=2 ; 

while (complete == false) { 
complete = true; 
gui .p ("Tdist_start : level =" +level) ; 

ret = set__Tdist_recursive (parent , level); 
if (ret == false) 

complete = false; 
level++ ; 

} 

return; 

} // end set_Tdist_start 



** set_Tdist_recursive 

** This increments a node's .Tdist whatever type it 

is 

** Return true only when we've run out of children 

** or when none of the children are at 1+caller . Tdist 

** complete starts out true, it conditionally only 

changes to false. 
**/ 

boolean set_Tdist_recursive (Node node, int level) { // position this node's 
children 

int i, size, Tdist; 
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boolean ret=true, complete=true; 
Node child; 

// search for where we were last, where Tdists were set to { level- 1) 

if (node.Tdist == level) { 
complete=f alse; 
return (complete) ; 

} 

size = node . Links . size () ; 

for (i=0; i<size; i++) { // check Tdist of all children, position if appropriate 
child = node .get NodeAtLink (i) ; 

if (child == Root) { // Don't go back through the POV 
return (complete) ; 
} 

if (child mm POV) { // Don't go back through the POV 
return (complete) ; 
) 

if (child. Tdist == -1) { 

child. Tdist = (( int ) (node . Tdist) +1) ; 
complete = false; 

} 

else if (child. Tdist > node.Tdist) { // RECURSE 
ret=set_Tdist_recursive (child, level) ; 

} 

if (ret==false) 

complete=false; 

} 

return (complete) ; 

} // end set_Tdist_recursive 



/* 
* */ 

void set_dist_start (Node parent) { 
int levels- 
boolean complete= false, ret; 

if (parent == null) { 

GUI . WARNING ( 0 , " set_dist_start (1) " , " parent is null") ; 
return ,- 

} 

GUI . P ( 0 , " set_dist_start (1) " f "Starting on " +parent . Name ) ; 
clear_dist () ; 

parent . set_dist (1) ; // force this first one, then use recursion for others 
parent .setJTdist (1) ; // force this first one, then use recursion for others 
level=2 ; 
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while (complete == false) { 

GUI.P(0, "set_dist_start" , "iterating on level="+level) ; 
complete = true; 

// ret = set_dist_recursive (parent , level); 

ret = new_set_dist_recursive (parent , 1, level, 0) ; 

if (ret == false) 

complete = false; 
level ++; 



**/ // NEW VERSION 

boolean new_set_dist_recursive (Node parent, int current_level , int 
target_level, int AN_level) { // position this parent's children 
int i, size, new_AN_level=AN_level ; 

boolean ret=true, complete=true, same_type=f alse, recurse=f alse; 
Node child; 

double delta=0.1, new_dist=-l; 
// search for where we were last 
if (current_level >= target_level) 



// HERE 

if (POV != null) 

if (parent . StopSpread && parent. dist != (POV. dist+1) ) // Don't go back through 
stopped nodes 

return (complete) ; 

if (parent . isAN) 

parent .AN_1 eve 1 = AN_level; 

// HERE 

size = parent . Links . size () ; 
for (i=0; i<size; i++) 



return ; 

} // end set_dist_start 



/* 




{ 

child = parent .getNodeAtLink(i) ; 



ret = true; 
same_type = false; 
recur se = false; 



// set defaults for next loop 
// set defaults for next loop 
// set defaults for next loop 



if (parent. Type == child. Type) 
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same_type = true; 

if (same_type) 

new_dist = parent. dist + delta; 

else 

new_dist = (int) (parent . dist ) + 1; // add one to truncated value 

if (child. dist == -1) { // just beginning 
child. set_dist (new_dist) ; 
child. set_Tdist (parent . Tdist + 1) ; 
complete=f alse; 

recurse=f alse; // Done, don't recurse. This slowed me down. 

> 

else // if already the optimal distance, continue on this path until 
level is met 

if ((child. dist < new_dist + 0.000001) && (child. dist > new_dist - 
0.000001) ) 

{ 

recurse=true; 
} 

if (child. isAN) 

new_AN_ level = AN_level+l; 
if (recurse) 

ret=new_set_dist_recursive (child, current_level+l, target_level , 
new_AN_level) ; 

if ( ret ==f alse) // one instance of ret==false makes the whole thing 
false, we keep on 

complete=f alse; 

} 

return (complete) ; 

} // end NEW VERSION set_dist_recursive 



/* 
* * 

** // MIDDLE VERSION 

boolean set_dist_recursive (Node parent, int level) { // position this parent's 
children 

int i, size, dist; 

boolean ret = true , completed rue, recurse=f alse; 

Node child; 

double new_dist=-l; 

// search for where we were last, where dists were set to (level-1) 
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if (parent. dist == level) 
{ 

5 complete=f alse; 

return (complete) ; 
} 

// HERE 

10 if (POV != null) 

if (parent . StopSpread && parent. dist != (POV.dist+1) ) // Don't go back through 
stopped nodes 

return (complete) ; 

15 size = parent .Links . size () ; 

for (i=0; i<size; i++) 

{ // check dist of all children, position if appropriate 
child = parent . get Node At Link (i) • 

2 0 if (child. dist == -1) { 

//if (parent. Type == child. Type) 
if (parent. isDN && child. isDN) 

{new_dist = parent. dist + 0.1;} 

else 

2 5 {new_dist - parent. dist + 1;} 

parent . setLinksVRparmsTo (child) ; 
complete = false; 

} 

else { 

30 if (parent. isDN && child. isDN) { 

//if (parent. Type -- child. Type) {} 
if (child. dist >= (parent . dist+0 . 1) ) { 

{new_dist = parent. dist + 0.1; recurse = true;} 
//System. out .print In (parent .Name+" , " +child . Name+" p . dist =" +parent . dist ) ; 

35 } 

} 

else // not same type 

if ( (int) (child. dist) >= (( int) parent . dist +1) ) { 

{new_dist = parent. dist + 1; recurse = true;} 

40 } 

} 

if ( child. Name. equal s IgnoreCase ( "mtg") || child. Name. equal slgnoreCase ("12 Mar 
2000")) { 

45 System. out .print In (parent .Name+" , M +child.Name+" p . dist =" +parent . dist 

+ M , old_child. dist ="+child. dist 

new_child.dist="+new_dist+" recurse="+recurse) ; 

> 

child. set^dist (new_dist) ; 
50 if (recurse) 
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ret=set_dist_recursive (child, level) ; 
recurse = false; // reset it 
if (ret==false) 

complete=f alse; 

} 

return (complete) ; n 

} // end set_dist_recursive 

**/ 



/* 
* ★ 

**/ // OLD VERSION 

boolean set__dist_recursive (Node parent, int level) { // position this parent's 
children 

int i, size, dist; 

boolean ret=true, complete=true; 

Node child; 

// search for where we were last, where dists were set to (level-1) 



if (parent. dist == level) 

{ 

complete=f alse; 
return (complete) ; 
} 

// HERE 

if (POV != null) 

if {parent . StopSpread && parent. dist != 
stopped nodes 

return (complete) ; 



(POV.dist+1) ) // Don't go back through 



size = parent . Links . size () ; 
for (i=0; i<size; i++) 

{ // check dist of all children, position if appropriate 
child = parent . getNodeAtLink ( i) ; 

if (child. dist == -1) { 

child. set_dist ( (parent .dist+1) ) ; 
parent . setLinksVRparmsTo (child) ; 
complete = false; 

} 

else if (child. dist == (parent . dist+1) ) 

ret=set_dist_recursive (child, level) ; 

if (ret==f alse) 

complete=f alse; 

} 

return (complete) ,- 

} // end set_dist_recursive 
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** OKtoFollow returns boolean whether to invoke action on grand_child, 

** looks at three nodes for context 

*/ 

public boolean OKtoFollow (Node parent, Node child, Node grand_child) { 
boolean ret_boolean = false; 

if (parent == POV) // sometimes POV is too small for test below of mag 

return (true) ; 
if (parent == null) 

return (true) ; 
if (child null) 

return (true) ; 
if (grand_child == null) 

return (true) ; 

// ((! child. isDN && ! grand_child . isDN) || gui.drawDN) && 
// ((! child. isAN && ! grand_child . isAN) || gui.drawAN) &&. 
// ((! child. isCN && !grand_child. isCN) || gui.drawCN) && 
// ((! child. isPN SlSc !grand_child. isPN) || gui.drawPN) && 
// ( ! (gui .checkPolarization && parent . isBB && ! child. isBB) ) 
// ( ( Ichild. isEvent && ! grand_child . isEvent) || gui . drawEvent ) 

if ( child. mag >= 0.2 ) 

ret_boolean = true; 

return (ret_boolean) ; 

} // end OKtoFollow 



/* 

** set_ChildNum_start Set the ChildNum variable, by calling 

set_ChildNum_re cursive 

**/ 

void set_ChildNum_start (Node parent, Node node, boolean theta_org_f lag) { 
int level=0 ; 

if (node == null) 
return; 

GUI . P (1, "set_ChildNum_start" , "Starting on " +node . Name ) ; 
set_ChildNum_recursive (parent , node, theta_org_f lag) ; 
return ; 

} // end set_ChildNum_start 
/* 

** set_ChildNum_recursive We assume the dist has been properly set, now we 
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** just count the number of children having dist = 

node.dist+1 

** Returns max number of children to the caller, node 

* * / 

void set_ChildNum_re cursive (Node parent, Node node, boolean theta_org_f lag) { 
// set the children's ChildNum 

int i, j, size, ChildNum=0, tChildNum=0, ChildCount; 

int x , y ; 

Node child, tn; 

Node nodel, node 2; 

int BigChildCount = 0 ,- 

String parentName = "unassigned" ; 

if (parent != null) 

parentName = parent . Name ; 

if (gui .Debug==2) { 
if (parent==null) 

System. out .print In ( "sCNr: set_ChildNum ( ) START: " +node . Name ) ; 
else 

System. out .print In ("sCNr: " +parent . Name+" - >"+node . Name) ; 
} 

// 

// Calculate BigChildCount based on all siblings (rather than distal children) 
size = node .Links . size () ; 
for (i=0; i<size; i++) 

{ 

child = node .get Node At Link (i) ; 
if (child. mag > Node . BIG_MAG) 
BigChildCount++ ; 

} 

node . BigChildCount = BigChildCount; 



for (i=0; i<size; i++) 

{ 

child = node . getNodeAtLink (i) ; 

if (( (child. dist > node. dist)) && child!=Root) // This child'll be drawn 

next 

{ 

// if (ChildNum < Node . MAX_CHILDREN) 

{ 

// if (OKtoFollow (parent, node, child)) 

{ 

node. child_vec [ChildNum] = i; // set starting with 
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child. ChildNum = ++ChildNum; // starts with 1 
set_ChildNum_recursive (node, child, 

theta_org_f lag) ; 

} 

} 

} 

} 

node .Chi ldCount - ChildNum; 
ChildCount = node . Chi ldCount ; 

if (ChildCount >= Node . MAX_CHILDREN) { 

GUI . WARNING (0 , » set_ChildNum_re cursive" , "ChildCount >= Node . MAX_CH I LDREN , 
bailing . " ) ; 

return; 

} 

/*****************************/ 

if (theta_org_f lag) { 

// Now, order the vector child_vec 

for (j=0; j< ChildCount-2; 

for (i=0; i<ChildCount-l-j ; i++) { 

// SWAP AND LATER RESET CHILDNUM 

nodel = node . getNodeAtLink ( node . child_vec [i] ); 
node2 = node . getNodeAtLink ( node . child_vec [i+1] ); 

if (nodel. mag < node2.mag) { 
x = node.child_vec [i] ; 

node . child_vec [i] = node . child_vec [i+1] ; 

node . child_vec [i+1] = x; 

x = nodel . ChildNum ; 

nodel .ChildNum = node 2 . ChildNum; 

node 2 . ChildNum = x; 
// GUI . P (1, "set_ChildNum_re cursive" , "j ( "+j+" ) swapping nodes 

"+node. child_vec [i] .Name+" <-> "+node . child_vec [i+1] .Name) ; 

} 

} 

} // end theta_org_f lag 

for (i=0; i< ChildCount; i++) { 

nodel - node .getNodeAtLink ( node . child_vec [i] ); 

nodel .ChildNum = i+1; // ChildNum starts with 1, the index with 0 

} 

/******************★***********/ 
return ; 

} // end set_ChildNum_recursive 
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** method calc_mags 

** find avg of two largest neighbors 1 mags 
*/ 

public void calc_mags (Node target_node) { 
5 double magl=0, mag2=0, avg_mag=0 ; 

Node tn, nodel, node 2 ; 
int size, i; 

size = t arget_node.L inks . size <) ; 
10 switch (size) { 

case 0: break; // ought not to happen 

case 1: avg_mag = 0 . 5* (target_node . getNodeAtLink (0) ) .mag; 
if (avg_mag > target_node . mag) 

target_node . set_mag (avg_mag) ; 

15 break; 

case 2: magi - ( target_node .get Node At Link (0) ) .mag; 

mag2 = ( targe t_node . getNodeAtLink ( 1 ) ) . mag ; 
target_node . set_mag (0 .5* (magi + mag2) ) ; 
break ; 

2 0 default: 

for (i^0; i<size; i++) { // find avg of two largest mag's 
tn = target_node .getNodeAtLink (i) ; 
if (tn.mag > magi) 

magi = tn.mag; 

2 5 else if (tn.mag > mag2) 

mag2 = tn.mag; 

} 

avg_mag = 0.5* (magi + mag2) ; 
if (avg_mag > targe t_node .mag) 

3 0 target_node . set_mag (avg_mag) ; 

break ; 

} 

GUI . P (1, "calc_mags" , "node ' "+ targe t_node . Name + 11 ' mag=" + targe t_node .mag) ; 
} // calc_mags 

35 



4 0 * * backup 

* * 

V 

public void backup () { 
int i, size; 

4 5 Node parent , tparent ; 

if (gui . lastNode == null) 
return; 

5 0 parent = gui . lastNode; 
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do { 



tparent = parent .getParent () ; 
if ( tparent —null) 



break ; 
if (tparent .dist > 1) 

parent = tparent; 



// don't go back to the POV, 

// but do allow going back one beyond the 



same type 

i f ( tparent . Type ! = gui . lastNode . Type ) 

break ; 
} while (true) ; 

// now, the parent is prior to the last one of the same type as the starting 
point 

gui. lastNode = parent; 
} // end backup 



/* 

** potmag potentiate distal to target, mag distal to POV 

** spread initially both polarizations, halt at pol-transition 

** touch !ANs but don't recurse . 

** Then, mag distally from another high-order AN. 

*/ 

public void potmag (String words [] , int num_words) { 
int size, i; 

Node pot_target=null, mag_target=null ; 

if (num_words == 1) 

pot_target = GUI . lastNode ; 

else 

if {num_words ==2) { 



pot_target = f ind_node_named (words (1] ) ; 

} 



else 



if (num_words ==3) { 



pot_target = find_node_named (words [1] ) ; 
mag_target = f ind_node_named (words [2] ) ; 

} 



if (pot_target == null) { 

GUI . WARNING ( 0 , "potmag" , "Need a lastNode 11 ) ; 
return; 



if (pot_target == null) { 



PATENT 



GUI. WARNING (0, "potmag", "Need a name or at least a lastNode . POV sibling 
is implied. 11 ) ; 

return ; 
} 

if (POV != null) { 

if (mag_target null) // if no second arg is given, assume its the 
first relative of POV 

mag_target = POV . getNodeAtLink ( 0 ) ; 

} 

if (mag_target == null) { 

GUI .WARNING (0, "pot mag" , "Need a mag_target " ) ; 
return ; 

} 

System . err .print In ( " Beginning of pot mag ( ) "); 

GUI . P (0 , "potmag" , "Using pot_target " +pot_target .Name+" , mag_target of 

"+mag_target .Name) ; 

potmag (pot_target , mag_target) ; 

System, err .print In ( " End of potmag () " ) ; 

return; 

} // end potmag 

public void potmag (Node pot_target, Node mag_target) { 
// SET THE POTENTIATION DISTAL FROM TARGET NODE (using Tdist) 
/*************★************ 

** set_Tdist__Start (pot_target) ; // NEED FOR SETTING VARIABLE 'TDIST' 

** pot (pot_target , true); // USES 'TDIST' 

**************************/ 

poth (pot_target ) ; // sets Tdist from Thesaurus_node 
// SET THE MAG DISTAL FROM PRIMARY SIBLING OF POV 
magall (mag_target) ; // USES 'DIST' 

return ; 

} // end potmag 

public void poth (Node node) { // 
int size, i; 

double depth, up_depth, down_depth; 
Node tn=null; 

if (node == null) 
return ; 

if (Thesaurus_node == null) { 

GUI. WARNING (0, "poth", "Need Thesaurus_node . Aborted."); 
return; 

} 
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setJTdi st_s tart (The saurus_node) ; // NEED FOR SETTING VARIABLE 1 TDIST ' 

// Check current depth of node 
depth = node.Tdist; 
up_depth ~ depth / 2 ; 

down_depth = 100; // go all the way down always 

gui .p ( "pot ( "+gui . node_to_string (node) +")"); 
node . set_pot (GUI . current_TS) ; 

// SET THE POTENTIATION DISTAL FROM SECONDARY NODE 
size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node .getNodeAt Link (i) ; 
// SEE IF CHILD IS DOWNHILL 

if ((tn.Tdist == 1+node . Tdist ) ) { // going downhill ... 
poth_r(tn, "down", down_depth) ; 

} 

else 

//OR UPHILL 

if ((tn.Tdist == -1+node . Tdist) ) { // going uphill ... 
poth_r(tn, "up", up_depth) ; 

} 

} 

return ; 

} // end poth 

/* * 

* * poth_r 

* ★ 

*/ 

public void poth_r (Node node, String direction, double target_depth) { 
int i, size, delta; 
Node child; 

if (node. Debug) 

GUI . P (0, "poth_r" , "setting pot on "+node.Name +", Tdist="+node .Tdist +" , 
Type ="+node. Type) ; 

node . set_pot (GUI . current_TS) ; 

// Bail out if we are at the target depth 
if (node.Tdist == target_depth) { 
return; 

} 

if (direction. equal slgnoreCase ("up") ) 
delta = -1; 

else 
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if (direction . equal slgnoreCase ( "down" ) ) 
delta = 1; 

else { 

GUI . WARNING { 0 , "poth_r ", "Wrong argument for direction passed, is 
M +direction) ; 

return ; 

} 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node .get NodeAtLink (i) ; 

if (node.Tdist + delta == child. Tdist) // recurse if in the correct 
direction 

poth_r (child, direction, target_depth) ; 

} 

} // end poth_r 
/ * * 

** lower_all_pots 
* * 

public void lower_all_pots (Node node) { 
int i, size; 
Node child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec . element At (i) ) ; 

child. set_pot (GUI . current_TS) ; 

} 

} // end lower_all_pots 
*/ 

/** 

** method pot 2nd version distributes pot_r considering polarization of 
start 
*/ 

public void pot (String words [] , int num_words) { 
Node node=null; 

if (num_ words == 1) 

node = gui . lastNode; 

else 

if (num_words > 1) 

i 

node = f ind_node_named (words [1] ) ; 

> 
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if (node == null) { 

GUI .WARNING (0, "pot" , "Need a name or at least a lastNode"); 

return; 

} 

GUI . P (1 , "pot 11 , "Top-level, Running on "+ node . Name) ; 
/ / lower_al l_pot s ( ) ; 

pot (node, false); // if given as command, don't recurse 

return; 

} // end pot 

public void pot (Node node, boolean recurse) { // distributes pot_r 
considering polarization of start 
int size, i; 
Node tn=null; 

if (node == null) 
return; 



// SET THE POTENTIATION DISTAL FROM SECONDARY NODE 
size = node . Links . size () ; 
for (i=0; i<size,- i++) { 

tn = node . getNodeAtLink ( i ) ; 

tn. set_j?ot (GUI . current_TS) ; 

GUI . P (0, "pot" , "on "+tn.Name 

+", Tdist="+tn.Tdist+" , Type =" +tn . Type) ; 

if (recurse && (tn.Tdist > node.Tdist)) { // recurse only if child. Tdist 

> us 

pot_r(tn, node. get Pol (tn) , tn.Type) ; // pass on the polarization 

} 

} 

return ,- 

} // end pot 

public void pot_r (Node node, char original_pol , String original_type) { 
int size, i; 
Node tn=null; 

if (node == null) 
return ; 

// SET THE POTENTIATION DISTAL FROM SECONDARY NODE 
size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node .getNodeAtLink (i) ; 

tn . set_pot (GUI . current_TS) ; 
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if ((tn.Tdist == 1+node . Tdist ) 

&& (tn. Type .equals (or iginal_type) ) 
//&& (original_pol==node .getPol (tn) ) 
) { // recurse 

GUI . P (1, "pot_r" , node. get Pol (tn) +" Type="+tn.Type 

+" Tdist="+tn.Tdist+ n "+ node .Name + " calling "+tn.Name) ; 
pot_r (tn ( originaljpol, original_type) ; 

} 

else { // not recursing 

//GUI . P (1 , "pot^r" , "NOT RECURSING » +node . getPol (tn) +» 

Type= " +tn . Type 

// +" Tdist ="+tn. Tdist +" "+node .Name+" calling "+tn.Name) ; 

} 

} 

return; 

} // end pot_r 
/* ★ 

** method backup 
*/ 

public void back_p (String words [] , int num_words) { 
Node node=null; 

if (num_words==0) 
return; 

if (num_words==l) 

node = gui . lastNode; 

else 

node = find_node_named (words [1] ) ; 

if (node == null) 
return; 

GUI . P ( 0 , "backup " , " Ope rat ing on " +node . Name ) ; 
back_p (node) ; // recursive fn 

} // end back_p (String, int) 

public void back_p (Node node) { 
int size, i; 
Node tn=null; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node . getNodeAtLink ( i ) ; 

if (tn.dist < node.dist) { 

GUI. P(0, "backup", » i is tn="+tn.Name) ; 
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tn . set_pot (GUI . current_TS) ; 

// tn.potentiation_TS = GUI . current_TS ; // p'_mag determined from 

this 

back_p(tn); // recurse 

} 

} 

} // end back_p 
/** 

** method upurls magnify the URLS upstream from each URL 
*/ 

public void upurls (String words [] , int num__words) { 

int targe t_level=0 , size, i, child_size, child_i; 
Node node=null, child ; 
Link link=null; 

boolean only = false;// do the target_level and distal ones 

gui . P (0 , "upurls" , "Begun . " ) ; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i + + ) { 

node = (Node) (node_vec . element At (i) ) ; 
if (node.isURL) { 

// for children 

child_size = node . Links . size () ; 

for (child_i=0; child_i<child_size ; child_i++) { 

child = (Node) (node . get Node At Link (child_i) ) ; 
if (child. isURL) { 

link = node .getLinkTo (child) ; 
if (child =*= link.NodeL) { 

gui . P (0 , "upurls" , child .Name+" magnified by 

"+node.Name) ; 

//child.more_mag() ; // FINALLY, MAG' THE 

HIGHER URL 

child. set_mag (child. mag * node. mag); // 

FINALLY, MAG 1 THE HIGHER URL 

} 

} 

} 

// end for children 

} 

} 

gui .P (0, "upurls" , "Done. 11 ) ; 
return; 

} // end upurls 
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* * s e t_s e 1 e c t ed_on_b ig_node s 

* * 

V 

public void set_selected_on_big_nodes () { 
int i f size; 
Node child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child ■ (Node) (node_vec . element At (i) ) ; 

if (child. mag >= Node . MED_MAG +0.1) 
child. isSelected = true; 

} 

return ; 

} // end set_selected_on_big_nodes 



** selectrecent set isSelected of all AN's touched within 10 seconds 
* * 

*/ 

public void selectrecent () { 
int i, size; 
Node child; 

size = node_vec . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec . element At (i) ) ; 

if (child. isAN && (child. TS > GUI . current_TS- 10000 ) ) 
child. isSelected = true; 

} 

return ; 

} // end selectrecent 
/** 

** flattenANs set all ANs to MED_MAG 
** 

*/ 

public void flattenANs () { 
int i, size; 
Node child; 

gui.P(0 # "flattenANs" , "Begun. ") ; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec .element At (i) ) ; 

if (child. isAN) 



child . set_mag (Node . MEDJ4AG) ; 

} 

gui.P(0, "flattenANs", "Done. ") ; 
return; 

} // end flattenANs 



/ * * 

** ans show the ANs two links from lastNode, force their mag to 

MAX_MAG+0 . 1 

* * 

*/ 

public void ans () { 
int i, j , size_i, size_j ; 
Node child, grand_child; 

Node node = gui . lastNode ; 

size_i = node .Links . size () ; 
for (i=0; i<size_i; i++) { 

child = node .get NodeAt Link (i) ; 

size_j = child. Links . size () ; 
for (j=0; j<size_j; j++) { 

grand_child = child . getNodeAtLink (j ) ; 
if (grand_child. isAN) 

grand_child . set_mag (Node . MAX_MAG+0 . 1) ; 

} 

} 

} // end ans 
/** 

** inhstored 

* * 

V 

public void inhstored () { 
int i, size; 
Node node; 

gui . P (0, "inhstored" , "Begun. 11 ) ; 

if (big_mag_node_vec == null) { 

gui . WARNING (0 , " inhstored" , "big_mag_node_vec is null . " ) ; 
return ; 

} 
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size s= big_mag_node_vec . size { ) ; 
for (i=0; i<size; i++) { 

node = (Node) (big_mag_node_vec . element At (i) ) ; 

node . set_mag (Node . SMALL_MAG) ; 

} 

gui . P (0 , " inhstored" , "Lowered "+big_mag_node_vec . size ( ) +" elements in 

big_mag_node_vec . " ) ; 

return; 

} // end inhstored 
/* * 

** storebig 
*/ 

public void storebig () { 
int i, size; 
Node child; 

big_mag_node_vec = null; // how do we release an object? ' free ( ) ' doesn't seem 
to work 

big_mag__node_vec = new Vector(lO); 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec . element At (i) ) ; 

if (child. isAN && child. mag > Node . BIG_MAG) 
big_mag_node_vec . addElement (child) ; 

> 

gui . P ( 0 , " storebig" , "There are " +big_mag_node_vec . size ( ) + " elements in 
big_mag_node_vec . " ) ; 
return ; 

} // end storebig 
/** 

** method absURLs 
*/ 

public void absURLs () { // Assumes user has run selectrecent () and 
flattenANsO . 

// Mag unselected AN's of URLs based on the URL's mag 
// Assume that large-mag AN's have been selected (based 
// perhaps on their being touched recently) 

int size, i; 
Node node; 

GUI.P(0 / "absURLs", "Begun. ") ; 



// 



for all nodes 
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size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node ■ (Node) (node_vec . element At (i) ) ; 
if (node.isURL) 

if (node. mag > Node . BIG_MAG) { 

//set_Tdist_start (node) ; // NEED FOR SETTING VARIABLE 

1 TDIST 1 

GUI . P ( 0 , 11 absURLs " , "Starting on URL < " +node . Name+" > 

mag= " +node . mag) ; 

absURLs_r ( (Node) null , node) ; 
//prime_or_mag (node) ; 

} 

} 

// end for all nodes 

//needdist Update = true; 
return; 

} // end absURLs 
/** 

** prime_or_mag Either prime this node (make it sensitive to another call) 
or mag it 

** Called usually by fn meant to characterize DNs 

*/ 

public void prime__or_mag (Node node) { 
int i, size; 
Node child; 

GUI . P (0, "prime_or_mag" , "Called on "+node .Name*" , dist=" +node . dist ) ; 

// Call from xabs() from URL, find AN children, invoke this fn on them 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 
child = node .getNodeAtLink (i) ; 

if (node.isURL) 
if (child. isAN) 

if (child. potent i at ion_TS> (GUI . current_TS-1000) ) { // we've been touched 
recently 

child . more_mag (node ) ; 

System. out . print In ("node . isURL & child. isAN & touched <"+ node . Name +" > to 
<"+child.Name+">, dist="+child .dist) ; 
prime_or__mag (child) ; 

} 

else { 

child . set_pot ( ) ; 

System. out .print In ( "node . isURL & child. isAN & NOT touched < "+node .Name+" : 
to <"+child .Name+" >, dist="+child.dist) ; 
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} 

if (node.isAN) 
if (child. isAN) 
5 if (node .goesUpstreamTo (child) ) 

if (child. potent iation_TS> (GUI . current_TS- 1000) ) { // we've been touched 
recently 

child .more_mag (node) ; 

System. out .print In ( "node . isAN & child. isAN & upstream & touched 
10 <"+node.Name+" > to < M +child.Name+" >, dist="+child.dist) ; 

prime_or_mag (child) ; 

} 

else { 

child . set_pot ( ) ; 

15 System. out .print In ( "node . isAN & child. isAN & upstream & NOT touched 

<"+node .Name+"> to <" +child.Name+"> / dist="+child. dist) ; 

} 



20 

/******************************************************* 

// 

//if ((node.isAN && node . goesUpstreamTo (child) ) | | (Jnode.isAN && 

2 5 child. dist >node. dist) ) { 

// if (child. potent iation_TS> (GUI .current_TS- 10 00) ) { // we've been touched 

recently 

// if (child. isAN) { 

// GUI . P (1 , "prime_or_mag" , "Mag ' ing & recursing from 11 +node.Name+" to 

30 "+child.Name+", dist="+child . dist) ; 

// child.more_mag () ; 

// prime_or_mag (child) ; 

// } 

// else 

3 5 // GUI . P (1, "prime_or_mag n , "NOT AN going from "+node .Name+" to 

"+child.Name+" , dist="+child.dist) ; 

// } 

// else { 

// GUI . P (1, "prime_or_mag" , "BAD TS, pot ' ing going from "+node .Name+" 

40 to "+child.Name+" , dist="+child.dist) ; 

// child . set_pot ( ) ; 

// } 
// } 
//else 

4 5 // GUI . P (1 , "prime_or_mag" , "REJECTING going from » +node .Name+" to 

"+child.Name+" , dist="+child.dist) ; 

******************************************************* ^ 



} // end prime_or_mag 



50 
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/** 

** method absURLs_r increment node. mag if node . Type--" AN" , recurse only if 
child is AN 
*/ 

public void absURLs_r (Node caller, Node node) { 
int size, i; 
Node tn; 

String caller_name = "<blank>"; 

// DON'T DO ANYTHING IF a caller is AN and child is not AN. 
if (caller != null) { 

caller_name = caller. Name; 

if (caller. isAN && Inode.isAN) { 

GUI . P (1 , "absURLs_r " , "BAIL : (caller. isAN && Inode.isAN) 
caller="+caller .Name+" , node="+node .Name) ; 
return; 
} 

} 

// DECIDE IF WE SHOULD MAG THIS 
if (node.isAN) { 

GUI.P(0, "absURLs_r", "MAGGING : "+ (node .Name 
+" "). substring (0, 10) 

+"caller="+caller_name+" (dist="+caller .dist+") prime_or_mag ( ) " ) ; 
caller .more_mag (node) ; 

} 

// DECIDE IF WE SHOULD RECURSE ON PARENT OF node 
size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node . getNodeAtLink ( i ) ; 
GUI . P ( 1 , 11 absURLs_r " , 11 TEST ING < " 
+node . Name + " - > " 
+tn.Name) ; 

if ( 

(node.isAN && tn.isAN) // if parent=AN, then to recurse, child must be AN 
| | Inode.isAN // if parent ! AN, then child can be anything 

> { 

if (tn.distcnode.dist) { 

GUI .P(l, "absURLs_r n , "RECURS ING: from <" 

+node .Name+"> ("+node .dist+" ) to " 
+tn.Name+" ( M +tn.dist+" ) ") ; 
ab s URL s_r (node, tn) ; 

} 

else 

GUI.P(1, "absURLs_r", " NOT -RECURS ING : from <" 
+node.Name+"> ("+node .dist+" ) to " 
+tn.Name+" ( "+tn. dist+" ) ") ; 

} 



else 

GUI - P (1, "absURI*s — r" , 11 NOT- RECURS ING (AN): from <" 

+node .Name+"> ( u +node . dist + " ) , isAN="+node . isAN+" 
+tn.Name+'» ( ,, +tn.dist + ") , isAN=" +tn. isAN) ; 

} 

return ; 

} // end absURLs_r 
/** 

** connect_all_to_POV 
* * 

*/ 

public void connect_all_to_POV () { 
int i, size; 
Node child; 

if (POV==null) 
return; 

set_Tdist_Start (POV) ; // NEED FOR SETTING VARIABLE 1 TDIST 1 

size = node_vec . size { ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec .element At (i) ) ; 
if (child. mag > gui . relations_threshold) { 
gui .p (gui . node_to_string (child) ) ; 
threshold_back_r ( (Node) null , child) ; 
} 

} 



} // end connect_all_to_POV 
/** 

** method abs 
*/ 

public void abs (String words f] , int num_words) { 
int target_level=0 ; 
Node node- 
boolean only = false;// do the target_level and distal 

if (num_words==0) 
return; 

if (num_words==l) 

node = gui . lastNode ; 

else 
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node = find_node_named (words [1] ) ; 

if (node == null) { 

gui . WARNING ( 0 , "abs" , "node is null"), 
5 return; 

} 

if (words [0] . equal slgnoreCase ( "abs ") ) 
target_level = 5 ; 
10 if (words [0] . equal slgnoreCase ( "absl") ) { 

target_level - 1 ; 
only = true; 

} 

if (words [0] . equal slgnoreCase ( "abs2 ") ) { 
15 target_level = 2; 

only = true; 

} 

if (words [0] . equal slgnoreCase ( "abs3 ") ) { 
target_level = 3; 
2 0 only = true; 

} 

if (words [0] . equal slgnoreCase ( "abs4 ") ) { 
target_level = 4 ; 
only = true; 
25 } 

if (words [0] .equal slgnoreCase { "abs5" ) ) { 
target_level = 5; 
only = true; 

} 

30 if (words [0] . equal slgnoreCase ( "abs6" ) ) { 

target_level = 6 ,- 
only = true; 
} 

35 

abs (node, target_level , only); 
connect_all_to_POV ( ) ; 

4 0 

} // end abs 



/* * 

** method abs 
*/ 

public void abs (Node node, int target_level , boolean only) { 
5 0 int size, i; 
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Node tn ; 

boolean recurse=f alse; 

if (node == null) 

return ; 
if (node == Root) 

return; 

node. lift (4) ; // keep start high 

GUI . P (0 , "abs" , "Operating on "+node.Name) ; 

// set_Tdist_st art (node) ; // NEED FOR SETTING VARIABLE 1 TDIST 1 
size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = node .get NodeAt Link (i) ; 

recurse = false; // reset 

if ( ( (tn.dist==(int)node.dist+l) | | (tn . dist==node . dist+delta_dist ) ) ) { 
recurse = true; 

if (tn.isAN && node.isAN) { // if both AN, go upstream only 
if (node .goesUpstreamTo (tn) ) 
recurse &= true; 

else 

recurse = false; 

} 

} 

else 

recurse = false; 
if (recurse) { 

abs_r(node, tn, target_level , 1, only); // start with 

this_level=0 

} 

GUI . P (1, "abs" , "NOT recursing from "+node.Name+" to "+tn.Name) ; 

) 

return; 

} // end abs 

/ * * 

** method abs_r 

** increment node. mag if node . Type » "AN" , recurse only if child is AN 

*/ 

public void abs_r (Node caller, Node node, int target_level , int this_level, 
boolean only) { 
int size, i; 
Node tn; 

boolean recurse=f alse ; 

if (this_level > target_level) 
return; 
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10 



if (node . isAN) { 

if (only) { // only increase if exactly on target_level 
if (this_level == target_level) 
node .more_mag (caller) ; 

} 

else { 

node . more_mag (caller) ; 

} 

this_level++ ; 



15 



20 



25 



if (this_level > target_level ) 
return; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

recurse = false; // reset 

tn = node. getNodeAtL ink (i) ; 

if ( . 

(node.isAN && tn.isAN) // if parent=AN # then to recurse, child 



must be AN 
anything 



| | ! node . is AN 

> { 



// if parent ! AN, then child can be 



30 



35 



40 



only 



if ( ( (tn.dist== (int)node.dist+l) 

| | (tn.dist<=node .dist+delta_dist+0 . 00001 

&&tn.dist>=node . dist+delta_dist-0 . 00001) 

> > { 

recurse = true; 

if (tn.isAN && node.isAN) { // if both AN, go upstream 

if (node . goesUpstreamTo (tn) ) { 
recurse &= true; 



else { 



} 



recurse = false; 



45 



else { 



recurse = false; 

} 



if (recurse) { 

abs_r(node, tn # target_level , this_level, only) ; 
} 



50 



return; 
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} // end abs_r 
/** 

** count_distal uses a 'global' variable, returns it: also used globally by 
functions 
** 

*/ 

public int count_distal (Node node) { 
int return_value ; 

GlobalDistalCount = 0; 
count_di staler (node) ; 

return_value = GlobalDistalCount; 
GUI . P (1, "count_distal" , "Found "+retum_value+" distal nodes . " ) ; 
return (ret urn_value) ; 

} // end count_distal 
/** 

** count_di staler 
* * 

*/ 

public void count_distal_r (Node node) { 
int i, size; 
Node child; 

if (node == null) 
return; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

GlobalDistalCount += size; 

child = (Node) (node .getNodeAt Link (i) ) ; 

if (child. dist > node.dist) 

count_distal_r (child) ; 

} 

} // end count_di staler 
/* * 

** method sides chain data nodes by making those of same type in a chain 
visible 
*/ 

public void sides (Node node) { 
int i, size; 
Node tn; 

if (node.isAN) { 
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size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (node. getNodeAt Link (i) ) ; 

sides_r(tn, tn.Type) ; 

} 

} 

else 

sides_r (node , node . Type) ; 
} // end sides 
/** 

** method sides_r chain data nodes by making them all visible 
*/ 

public void sides_r (Node node, String type) { 
Node child=null; 
int i, size; 

if (node == null) 

return; 
if (node == Root) 

return; 

// RECURSE 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node . get Nod eAt Link (i) ; 
// check for dis- similar type to magnify 

if ( (child. dist > node.dist) && (! child . Type . equal slgnoreCase (type) ) ) { 
pump (child) ; 

gui .getToolkit () . sync () ; // drama 
//gui . show_node_once (child) ; 

} 

// check for similar type to recurse on 

if ((child. dist > node.dist) && (child . Type . equal slgnoreCase (type) ) ) { 
System. err .print In ("sides_r, ' "+node .Name+" 1 -> recursing on » +child . Name+" from 
" +node . Name ) ; 

sides_r (child, type); 

} 

} 

return; 

} // end sides_r 



f * * 

** shiftln 



*/ 

public void shiftln (String [] words, int num_words) { 
Node CNode =null; 

if (null == (CNode = f igure_out_node ( "shiftln" , words, num_words) ) ) 
return; 

gui. P(0, "shiftln" , "Running on CNode < 11 + CNode .Name +">") ; 
mag_CSs_of_CNode (CNode) ; //mag CS ' s and mag 
} // end shiftln 



/* * 

** shiftOut 
*/ 

public void shiftOut (String [] words, int num_words) { 
Node CNode =null; 

if (null == (CNode = f igure__out_node (" shiftOut " , words, num_words) ) ) 
return ; 

gui . P ( 0 , " shiftOut 11 , 11 Running on CNode < 11 +CNode . Name+" > " ) ; 
inh_CSs_of_CNode (CNode) ; //mag CS 1 s and mag 
} // end shiftOut 



** shiftOut All 
* * 

*/ 

public void shiftOutAll (String [] words, int num_words) { 

int size, j_size, i, j ; 

Node node; 
Link siblink; 

size =s node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . elementAt (i) ) ; 
j_size = node . Links . size () ; 
for (j=0; j<j_size; j++) { 

siblink = node . getLink ( j ) ; 
if (i<10) 

GUI. P ( 0, "DataSea. shiftOutAll", "resetting CS to 

"+Link.MIN_CS+ 

11 for node < "+node .Name+" > and 

<"+siblink.NodeR.Name+">" ) ; 

if (siblink!=null) { 

siblink. set_CS( Link. MIN_CS) ; 
} 

} 

} 
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} // end shiftOutAll 



/** 

** shiftlnAll 
** 

*/ 

public void shiftlnAll (String [] words, int num_words) { 
int size, j_size, i, j ; 
Node node; 
Link siblink; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 
j_size = node . Links . size () ; 
for (j=0; j<j_size; j++) { 

siblink = node . getLink ( j ) ; 
if (i<10) 

GUI . P ( 0 , "DataSea . shiftlnAll 11 , "resetting CS to 

"+Link.MED_CS+ 

" for node < " +node . Name+ 11 > and 

< " +sibl ink . NodeR . Name+ 11 > " ) ; 

if (siblink! =null) { 

siblink. set_CS (Link. MED_CS) ; 
} 

} 

} 

} // end shiftlnAll 



/* 

* mag_CSs_of_CNode magnify nodes connected to the Context Node of 'node' 
*/ 

static public Node mag_CSs_of_CNode (Node CNode) 

{ 

int i, size- 
Link link=null; 

Node child=null, ret_node = null; 
CNode . more_mag ( ) ; 

size = CNode . ContextLinks . size () ; 

//gui . P (0, "mag_CSs_of_CNode" , "Running on "+CNode .Name+" with "+size+" links."); 
for (i=0; i<size; i++) { 

link = (Link) CNode . ContextLinks .element At (i) ; 
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// Set CS to at least the DEFAULT for those related to this CNode 

if ((link.CS_R < Link. DEFAULT_CS) || (link.CS_L < Link . DEFAULT_CS ) ) 
link. set_CS( Link. DEFAULT_CS) ; 

else 

link.more_CS () ; 

// Set mag of nodes linked by this link to at least MED_MAG 
if (link.NodeR.mag < Node . MED_MAG ) 

link . NodeR . set_mag (Node . MED_MAG ) ; 

else 

1 ink . NodeR . more_mag ( ) ; 
if (link.NodeL.mag < Node . MED_MAG ) 

link . NodeL . set_mag (Node . MED_MAG ) ; 

else 

1 ink . NodeL . more_mag ( ) ; 

//gui . P (0, "mag_CSs_of_CNode" , "Just increased mags and CS_R&L of link 
between < "+link .NodeR . Name+" > and < "+1 ink. NodeL. Name+" >") ; 
} 

//gui . P ( 0 , "mag_CSs_of_CNode" , "Done . " ) ; 

return (ret_node) ; 

} // end mag_CSs_of_CNode 



/* 

* inh_CSs_of_CNode inhibit nodes connected to the Context Node of 'node 1 
*/ 

static public Node inh_CSs_of_CNode (Node CNode) 

{ 

int i, size; 
Link 1 ink=nul 1 ; 

Node child=null, ret_node = null; 
size = CNode . ContextLinks . size ( ) ; 

gui . P (0 , "inh_CSs_of _CNode 11 , "Running on < " +CNode . Name+" > with "+size+" links."); 
for (i=0; i<size; i++) { 

link - (Link) CNode . ContextLinks . element At (i) ; 

link. less_CS () ; 

} 

return (ret_node) ; 

} // end inh_CS s_of _CNode 

/* 

* set_CSs_of_CNode set CSs of links connected to the Context Node of 'node* 
*/ 

static public Node set_CSs_of_CNode (Node CNode, double CS) 

{ 

int i, size; 
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Link link-null; 

Node child=null, ret_node ■ null; 



size = CNode. Context Links . size () ; 
5 for (i=0; i<size; i + + ) { 

link m (Link) CNode .ContextLinks . element At (i) ; 
link.CS_R = CS; 
link.CS_L = CS; 
} 

10 return (ret_node) ; 

} // end set_CSs_of_CNode 



/* * 

15 ** method local local data nodes by making those of same type in a local 

visible 

V 

static public void local (Node node) { 
int i, size; 
2 0 Node child; 

if (node == null) { 

gui . WARNING ( 0 , " local " , "No lastNode available"); 
return; 

25 } 



node . set_mag (Node . MAX_MAG) ; 

gui . P ( 1 , " local " , " Running on " +node . Name ) ; 



30 



size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child - (Node) (node .getNodeAt Link (i) ) ; 

child. set_mag( child. mag + Node . DELTA_MAG) ; 
35 gui . P (1 , "local" , "Running on " +child . Name) ; 

} 

} // end local 
40 /** 

** method chain_ chain data nodes by making those of same type in a chain 
visible 
*/ 

public void chain (Node node) { 
45 int i, size; 

Node child; 

if (node == null) { 

gui . WARNING ( 0 , " chain" , "No lastNode available"); 
50 return; 
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10 



15 



20 



} 



size = node. Links. s ize () ; 
for (i=0; i<size; i++) { 

child = (Node) (node. get NodeAt Link (i) ) ; 

chain_r (child, child. Type, "distal") ; 

chain_r (child, child. Type, "proximal"); 

} 

} // end chain 



public void chain_r (Node node, String type, String direction) { 
Node child=null ; 
int i, size; 

if (node == null) 

return; 
if (node == Root) 

return; 

gui . P ( 1 , " chain_r " , " Running on " +node . Name ) ; 



// RECURS E 

size = node . Links . size () ; 
2 5 for (i=0; i<size; i++) { 

child « node . getNodeAtLink (i) ; 
// check for similar type 

if ( (child. dist > node.dist) && direction. equals ( "distal" ) && 
child. Type .equal slgnoreCase (type) ) { 
30 chain_r (child, type, direction); 

gui .getToolkit (). sync () ; // drama 
gui .getToolkit (). sync () ; // drama 
gui .getToolkit () . sync () ; // drama 
child . more_mag (node) ; 

35 } 

else 

if ((child. dist < node.dist) && direction . equals ( "proximal " ) && 
child. Type . equal slgnoreCase (type) ) { 

chain_r (child, type, direction) ; 
4 0 gui . getToolkit (). sync () ; // drama 

gui .getToolkit () . sync () ; // drama 
gui .getToolkit (). sync () ; // drama 
child.more_mag (node) ; 

} 

45 } 

return; 

} // end chain_r 



50 
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** method pump pump up all distal nodes 
*/ 

public void pump (Node node) { 
int i, size- 
Node child; 

if (node == null) 

node = Root; 

node . set_mag (Node . MAX_MAG- . 2 ) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child - (Node) (node. getNodeAt Link (i) ) ; 

if ( (child. dist > node.dist) && (child. Type .equal slgnoreCase (node .Type) ) ) 
pump_r ( node , child); 

} 

} // end pump 
/*★ 

** method pump_r pump data nodes by making them all visible 
*/ 

public void pump_r (Node parent, Node node) { 
Node child=null; 
int i, size; 

if (node == null) 

return ; 
if (node == Root) 

return; 

//if (node.isAN || parent. isAN) 
// return; 

node . set_mag (Node . MAX_MAG- . 2 , parent); // allow use of CS from parent to node 
gui . P (1 , "pump_r " , "Running on " +node . Name+" from caller " +parent . Name) ; 
// RECURSE 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node.getNodeAtLink(i) ; 

if ((child. dist > node.dist) && ( chi Id. Type .equal slgnoreCase (node .Type) ) ) 
pump__r ( node , child); 

} 

return; 

} // end pump_r 
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/* ★ 

** method clean strip data nodes by stripping away DNs making them barely 
visible 
*/ 

public void clean () { 
Node node; 

node = gui . lastNode ; // try the lastNode first 
if (null null) // try the Root next 
node = Root ; 

System. out .println( "cleanO , node is " +node . Name ) ; 
clean (node) ; 

} // end clean 
/** 

** method clean strip data nodes by stripping away DNs making them barely 
visible 
*/ 

public void clean (Node node) { 
if (node == null) { 

gui . WARNING ( 0 , " clean" , "Given node is null."); 

return; 

} else 

gui.P(0, "clean", "Running on "+node.Name) ; 

reset_mags (Node . BARELY_VISIBLE_MAG) ; 
mag_ans ( (Node ) null , node , 2 , 0 ) ; 
mag_ans ( (Node) null , node , 1 , 0 ) ; 
node . set_mag (Node . MAX_MAG) ; 
//clean_r (node, count_distal (node) ) ; 
} // end this version of clean 

/** 

** method clean strip data nodes by stripping away DNs making them barely 
visible 
*/ 

public void clean (String [] words, int num_words) { 
Node node=null; 

if (num_words==l) 

node = gui . lastNode ; 

else 

node = find_node_named( words [1] ) ; 
clean (node) ; 
} // end clean 
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/* * 

** method clean_r strip away data nodes making them barely visible 
*/ 

public void cleaner (Node node, int distal_count ) { 
Node child=null; 
int i, size; 
int delay=0; 

if (node == null) 
return; 

// Scale how long we delay based on how many nodes we'll operate on 
//We want to take about 2 seconds for everything 
if (distal_count > 0) 

delay = 10000/distal_count ; 

// RECURSE 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node . get NodeAt Link (i) ; 
if (child. dist > node.dist) { 

child . set_mag (Node . B ARE L Y_V I S I B LE_MAG ) ; 
clean_r (child, distal_count) ; 

} 

} 

return ; 

} // end cleaner 



/★ * 

** mag_ans This mags AN's which are a certain number of AN links away 
3/6/2000 
* * 

*/ 

public void mag_ans (Node caller, Node node, int target_level , int 
current_level) { 
int i, size; 
Node child=null; 

if (node == null) 
return ; 

/ /System . out . print In ( " " ) ; 

//System. out .print ( " [ " +current_level+" ] "); 
if (caller != null) 

if (! caller . isAN && node.isAN) 

if (caller .goesUpstreamTo (node) ) { 

//System, out .print ( 11 [++upstream++] " ) ; 
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if (current_level == target_level-l) { 
if (node.TS__diff () > 0) { 

System. out .print ( " caller< M +caller .Name+">- 
>set_mag<"+node .Narae+" > , current_level="+current_level) ; 

if (node. mag < Node . MAX_MAG) 

node . set_mag (Node . MAX_MAG) ; 

else 

node . more_mag ( ) ; 

} 
} 

current_level ++; 

} 

else { 

//System. out .print (" caller< " +caller . Name+" > not_upstream - 
>< " +node . Name+ " > " ) ; 

return ; 

} 

if (current_level >= target_level ) 
return; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = node .get Node At Link (i) ; 

if (child == Root) ; 

else 

if (child == caller) ; 
else 

if (child. dist > node.dist) { // is distal, no 'else' 
if (node.isAN) { 

if (! child. isAN) 

else { // child is AN also 

if (node . goesUpstreamTo (child) ) // no real 'else* 

{ 

//System. out .print ( " [upstream] " ) ; 
if (current_level == target_level-l) { 

if (child. TS_diff() > 0) { 

//System. out .print ( " node< M +node .Name+" >->SET_MAG<" +child.Name+" >, 
current_level= " +current_level ) ; 

System . out . print ( 11 
SET_MAG< M + child. Name +" >, " + " cur rental eve 1= " +current_level) ; 

if (node. mag < Node . MAX_MAG) 

child . set_mag (Node . MAXJ4AG) ; 

else 

child . more_mag ( ) ; 

} 
} 

if (current_level < target_level) // recurse 
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mag_ans (node, child, target_level , 

l+current_level) ; 

} 

} 

} 

else // node is not an AN, see if child is 

mag_ans (node, child, target_level, current_level) ; 

} 

} 

return; 

} // end mag_ans 
/* * 

** heavyans This mags AN's which are a certain number of AN links away 
3/6/2000 

*/ 

public void heavyans (Node caller, Node node, int target_level, int 
cur rent__l eve 1 ) { 
int i, size; 
Node child=null; 

if (node == null) 
return; 

//System. out .print In ( " "); 

//System. out .println ( " [ M +current_level+" ] "); 
if (caller != null) 

if (! caller . isAN && node . isAN) 

if (caller .goesUp st reamTo (node) ) { 

//System. out .print ( " [++upstream++] " ) ; 
if (current_level == target_level-l) { 
System . out . print ( " 
MAG ( + " +node . Links . size ()+")<" +node . Name+ " >- " ) ; 

node . set_mag (node .mag + node . Links . size ( ) ) ; 

} 

current_level ++; 

} 

if (current_level >= target_level) 
return; 

//if (caller != null) 

// System. out .print ( " <" +caller .Name+" >->< " +node . Name+" > " ) ; 
//else 

//System, out .print ( ■■ <NULL>- >< " +node . Name+" >" ) ; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 
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child = node .getNodeAt Link (i) ; 

if (child == Root) ; 

else 

if (child == caller) ; 
else 

if (child. dist > node.dist) { // is distal, no 'else* 
//System, out .print ( " <"+child.Name+"> dist+++ "); 
if (node.isAN) { 

if (! child. isAN) 

else { // child is AN also 

if (node . goesUpstreamTo (child) ) // no 'else' 

{ 

//System. out .print ( " [upstream] "); 
if (current_level == target_level-l) { 
System . out . print ( " 
MAG ( + "+node . Links . size () + " ) <"+node .Name+" > 11 ) ; 

child . set_mag (node . mag + 

node . Links . size ( ) ) ; 

} 

if (current_level < target_level) // recur se 
heavyans (node, child, target_level , 

l+current_level) ; 

} 

//else 

//System. out .print ( " [downstream] " ); 

} 

} 

else // node is not an AN, see if child is 

heavy ans (node , child, target_level , current_level) ; 

} 

//else 

//System. out .print ( " < " +child . Name+" > dist " ) ; 

} 

return ; 

} // end heavyans 



/* * 

** enhance enhance !ANs based on number of their ! AN- children 
* * 

*/ 

public void enhance (String [] words, int num_words) { 
int i,j, size, node_size, child_counter , node_counter=0 ; 
Node node, child; 

String strj="", Type= "UNINITIALIZED TYPE"; 
double new_mag; 

if (num_ words ==1) { 
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Type = " URL" ; 

gui . P (0 , "enhance" , "Default Type is "+Type) ; 

} 

else { 

Type = words [ 1 ] ; 

gui. P(0, "enhance" , "Type is "+Type) ; 

} 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 
if (node .Type . equal slgnoreCase (Type) ) { 
child_counter = 0; 
node_size = node . Links . size () ; 

for (j=0; j<node_size; j++) { // NOW, COUNT CHILDREN OF CORRECT 

TYPE 

child = (Node) (node . getNodeAt Link (j ) ) ; 
if ( child. Type . equal slgnoreCase (Type) ) 
child_counter++ ; 

} 

if (child_COunter>l) { // NOW, INCREASE THE MAG OF THE NODE 

'Child' 

new_tnag = node .mag+0 . 3*child_counter ; 
System . out . print (node . Name+ " : " +node . mag+ 11 - >" +new_mag+ " " ) ; 

node . set_mag (new_mag) ; 
node_count er++ ; 

} 

} 

} 

gui . P ( 0 , " enhance 11 , node__counter+ " nodes enhanced . " ) ; 
return ; 

} // end enhance 
/** 

** choices list the ANs above BIG_MAG for each level of dist from Thes 
* ★ 

*/ 

public void choices () { 
int i,j, size, counter; 
Node child ; 
String strj = 11 " ; 

gui . clear_global_str ( ) ; 

gui . add_to_global_str ( "Choices : " ) ; 

for (j=2;j<8; j++) { 
strj=" " ; 
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counter = 0; 

gui . add_to_global_str ( "Depth » +j + " : » ) ; 
size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec . element At (i) ) ; 

if (child. isAN child .mag>Node . BIGJVIAG && child . dist==j ) { 
counter ++; 

strj=strj+" <"+child.Name+">" ; 

} 

} 

if (counter > 1) 

gui . add_to_global_str (str j ) ; 

else 

if (counter == 1) 

gui . add_to_global_str ( " (only 1-node) " ) ; 

else 

gui . add_to_global_str ( " (empty) " ) ; 

} 

} // end choices 



/* * 

** magtype mag directly linked nodes of same type with given direction. 
* * 

V 

public void magtype (Node node, String type, char direction) { 

int i, size; 
Node child; 

if (node==null) 
return ; 

if (type —null) 

type = node . Type ; 

if (direction== » ') 

direction = 'd' ; 

// for children 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node . getNodeAtLink (i) ) ; 
if ( child. Type .equals IgnoreCase (type) ) 

if ( ( (direction== ' d 1 ) (child. dist > node.dist)) 

II 

( (direction== t p» ) && (child. dist < node.dist))) 
{ 
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child. more_mag (node) ; 

magtype (child, type, direction); 

} 

} 

// end for children 

return; 

} 

** magall 

* * 

*/ 

public void magall (Node node) { 

mag_r(null, node, "distal", gui . INFINITE_DEPTH, 0, " + ", true); 
mag_r(null, node, "distal", gui . INFINITE_DEPTH, 0, "+", true) ; 

} // end magall 

/ * * 

* * magd 

* * 

*/ 

public void magd () { 

if (gui . lastNode != null) 

mag_r(null, gui . lastNode, "downstream", gui . INFINITE_DEPTH, 0, "+", true); 
} // end magd 



/* 
/* * 

** inhd 

*/ 

public void inhd () { 

if (gui . lastNode != null) 

mag_r (null , gui . lastNode, "downstream" , gui . INFINITE_DEPTH, 0 , " - 11 , true) ; 
} // end inhd 

/* 

* mag Full version 

*/ 

public void mag (String [] words, int num_words, String direction, int max_dist, 
String more_or_less) { 
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Node node=null; 

if (num_words==l) 

node = gui . lastNode ; 

else 

node = f ind_node_named ( words [ 1 ] ) ; 

if (node != null) { 

mag_r ( (Node) null, node, direction, max_dist, 0, more_or_less, false); 

} ~~ 

else 

{ 

GUI. WARNING ( 0, "DataSea. mag", "Can" t get a node, num_words="+num_words) ; 
} 

} //end mag 
/* 

* mag simplest version 
*/ 

public void mag (Node node) { 

mag_r( (Node) null, node, "distal 11 , 5, 0, " + ", false); 
} // end mag 

/* 

* mag simplest version more_or_less is either " + '• or "-" 
*/ 

public void mag (Node node, String direction, String more_or_less) { 

mag_r ( (Node) null, node, direction, 5, 0, more_or_less, false); 
} // end mag (simplest) 

/* 

* mag simplest version more_or_less is either "+" or " 
*/ 

public void mag (Node node, String direction, String more_or_less , int dist) { 

mag_r ( (Node) null , node, direction, dist, 0, more_or_less, false); 
} // end mag (simplest) 

I * * 

** method mag_r 7 -variable version 
*/ 

public void mag__r (Node node, Node child, String direction, int max_call_depth, 
int this_call_depth, String more_or_less , boolean cross_AN_DN_boundary) { 
Node grand_child=null ; 
int i, size; 

boolean distal=f alse, proximal=f alse, both=false, OK=false; 
boolean downstream=f alse , upstream=f alse; 
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if (child == null) 
return; 

if ({node !- null) && (child == Root)) // OK to mag root if there's no caller 
return; 



if (child. isCN) { 

if (gui.drawCN) { 

if <more_or_less . equal slgnoreCase (" + " ) ) 
mag_CSs_of_CNode (child) ; 

else 

inh_CSs_of_CNode (child) ; 

} 

} 

// HANDLE MODE 

// SET UP THE MODES 

if (direction. equal slgnoreCase ( "downstream" ) ) 

downstream = true; 
if (direction . equal slgnoreCase ( "upstream" ) ) 

upstream = true; 
if (direction . equal slgnoreCase ( "distal " ) ) 

distal = true; 
if (direction. equalsIgnoreCase ( "proximal" ) ) 

proximal = true; 
if (direction . equalsIgnoreCase ( "both" ) ) 

both = true; 

// INCREMENT this_call_depth refers to number of recursive calls, not 

Node .di st 

if (++this_call_depth > max_call_depth) 
return ; 



//System. err .print In ( "mag_r : " +this_call_depth+" < " +max_call_depth) ; 
// HANDLE THIS_DIST 

// INCREASE the mag of the child arg' 

if (more_or_less . equalsIgnoreCase ("+") ) { 

if (child. TS_dif f () > 0) { // this TS is before GUI . last CommandTS 

//System. err .print In ( "mag_r : depths : "+this_call_depth+ 11 < "+max_call_depth+">, 

more_mag ( " +child . Name+ 11 ) " ) ; 

child.more_mag (node) ; 

} 
} 

else { 

child. less_mag (node) ; 
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} 

// RECURSE 

size - child. Links. size () ; 
for (i=0; i<size; i++) { 

grand_child = child .get NodeAt Link (i) ; 
if (proximal && (grand_child . dist < child. dist) ) 
OK = true; 

else 

if (both) 

OK = true; 

else 

if (distal && (grand_child.dist > child. dist)) 
OK = true; 

else 

if (downstream && child. getPol (child) =='+■ ) 
OK = true; 

else 

if (upstream && child . getPol (child) =='-' ) 
OK = true; 

// sense AN-DN transition: 

// Don't recurse by passing through AN to DN : DN's refer to other 

contexts 

// dist=2 means that child is connected to starting point 
if (node != null) 

if ( (this_call_depth >= 2) && (child. isAN && ! grand_child . isAN) 
&& I c ros s_AN_DN_boundary ) { 

OK = false; 
} 

if (grand^child. StopSpread) 

OK = false; 
if (OK) { 

if (distal | | both | | downstream) 

mag_r (child, grand_child, "distal", max_call_depth, 
this_call_depth, more_or_less, cross_AN_DN_boundary) ; 

if (proximal | | both | | upstream) 

mag_r (child, grand_child, "proximal", max_call_depth, 
this_call_depth, more_or_less, cross_AN_DN_boundary) ; 

OK = false; 
> 

} 

return; 

} // end mag_r 

// CLEAN UP FUNCTIONS 
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** simplify hide DNs distal to ANs 

★ * 

*/ 

public void simplify (String [] words, int num_words) { 
int i, size; 
Node node, tn; 

if (num_words==l) 

node = gui . lastNode ; 

else 

node = f ind_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) { 
i f ( num_words > 1 ) 

GUI . WARNING (0 , "DataSea . simplify" , "Can 1 1 find node "+words[l]) ; 

else 

GUI . WARNING (0 , "DataSea . simplify" , "Neither Name given nor existing 

lastNode. ") ; 

return; 

} 

GUI . P (0, "DataSea- simplify" , "Working from " +node . Name ) ; 
simplify_recursive ( (Node) null, node) ; 

} // end simplify 
/* * 

** simplif y_recursive inhibit DNs following ANs 

* * 

*/ 

public void simplif y_recur si ve (Node caller, Node child) { 
int i, size; 
Node tn; 

if (caller == null) { 
size = child . Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (child .get Node At Link (i) ) ; 

if (tn.dist > child. dist) 

s impl if y_recursive (child, tn) ; 

} 

} 

else 

if (caller. isAN child. isDN) 
inhibit (child) ; 

else 
{ 

size « child. Links . size () ; 
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10 



for (i=0; ioize; i++) { 

tn = (Node) (child. ge t Node AtL ink (i) ) ; 
if (tn.dist > child. dist) 

sitnplif y_recursive (child, tn) 

} 

} 

} // end simplif y_recursive 



/** 

** strip_r marginalize all non-AN's after first AN distal to node 



*/ 

15 public void strip_r (Node parent. Node node) { 

int i, size; 
Node child; 

boolean inhibit_it = false; 

2 0 if (node == null) 

return; 

size = node .Links . size () ; 
for (i=0 ; i<size; i++) { 
25 child = (Node) (node. getNodeAtLink ( i) ) ; 

if (child. dist > node. dist) { 
if (parent != null) 

if (parent. isAN && ! child. isAN) // check AN-! AN boundary 
inhibit_it = true; 

3 0 if (inhibit_it) 

inhibit (child) ; 

else 

strip_r (node, child) ; 

} 

35 } 

} // end strip_r 



4 0 ** strip marginalize all non-AN's after first AN distal to node 

* * 

*/ 

public void strip (String [] words, int num_words) { 
Node node=null; 

45 

if (num_words==l) 

node = gui . lastNode; 

else 

node = find_node_named (words [1] ) ; 
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strip_r( (Node) null, node) ; 
} // end strip 

/** 

** inhibit put below threshold the distal nodes, and the proximal nodes up 
to first AN 

** this version handles words 

*/ 

public void inhibit (String [] words, int num_words) { 
int i,j, size, size_j ; 
Node node, child, tn; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

else 

node = f ind_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) { 
if (num_words>l) 

GUI . WARNING ( 0 , "DataSea . inhibit " , "Can 1 1 find node » +words [ 1 ] ) ; 

else 

GUI .WARNING (0, "DataSea. inhibit" , "Neither Name given nor existing 

lastNode. ") ; 

return ; 

} 

else 

GUI . P ( 0 , " inhibit " , " Found node named ' " +node . Name+ " ' " ) ; 

// 

gui . show_node_once (node) ; 
inhibit (node) ; 
} // end inhibit 

/* 

** inhibit single arg version, inhibit proximally and distally from node 
* * 

*/ 

public void inhibit (Node node) { 

inhibit_distally (node) ; 

// inhibit_proximally (node) ; 

} // end inhibit 

/* 

** inhibit_distally put below threshold the distal nodes, and the proximal 
nodes up to first AN 
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*/ 

public void inhibit_dis tally (Node node) { 
int i, size; 
Node child=null; 

5 

node . less_mag ( ) ; 

GUI . shrinking_al lowed = false; 

size = node . Links . size () ; 
10 for (i = 0; i<size; i + + ) { 

child = (Node) (node. getNodeAt Link (i) ) ; 
if (child. dist > node.dist) 

inhibit_distally (child) ; // decrease all distal nodes 

> 

15 GUI . shrinking_al lowed = true; 

return ; 

} // end inhibit_distally 



20 



/* 

** inhibit_proximally reduce proximal nodes up to first AN 



*/ 

2 5 public void inhibit_proximally (Node node) { 

int i, size; 
Node parent=null; 

if (null == POV) // go backwards and if AN is found, decrease distal from it 

3 0 return ; 

GUI.P(0, "inhibit_proximally" , " node =" +node .Name) ; 

size = node . Links . size () ; 

3 5 for (i = 0; i<size; i++) { 

parent = (Node) (node . get Node At Link (i) ) ; 
if (parent. dist < node.dist) { 
if (parent . isAN && (parent. dist <= 2) ) { 
GUI . P (0, "inhibit_proximally" , "breaking for AN parent =" +parent .Name+" 

4 0 dist= " +parent . dist ) ; 

break; 

} 

if (parent. dist > 2) { 

parent . less_mag ( ) ; 

4 5 GUI . shrinking_al lowed = false; 

// RECURSE 

inhibit_proximally (parent) ; 
GUI . shrinking_allowed = true; 

} 

5 0 } // if parent's dist < node's 
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} 

} // end inhibit_proximally 



J * * 

* * vote_branch 

** spread mag changes ( + or -, depending on String s) 

** both proximally and distally for positive, distal only for negative 



* * 



public void vote_branch (String [] words, int num_words, String s) { 
Node node = null ; 

i f ( num_words = = 1 ) 

node = gui . lastNode ; 

else 

node = f ind_node__named (words [1] ) ; 



// CHECK FOR ERRORS 

if (node==null) { 
i f ( num_wor d s > 1 ) 

GUI. WARNING ( 0, "vote_branch", "Can't find node "+words[l]); 
return; 

} 

else 

votejbranch (node, s) ; 
} // end vote_branch 



public void vote_branch (Node node, String s) { 
int i ; 

String saved_spread_mode = gui . mode_ob j . spread_mode ; 

if (node == null) 

node = gui . lastNode ; 
if (node==null) 

return; 

GUI.P(0, "vote_branch" , "Acting 1 "+s+" ' , on Node =" +node . Name ) ; 

if (s. equals ("+") ) { // PLUS 

gui .mode_obj . spread_mode = "both" ; 

mag ( node , " bo t h " , " + " ) ; 

} 

if (s. equals ("-") ) { // MINUS 

gui .mode_obj . spread__mode = "distal" ,- 
GUI . shrink ing_al lowed = false; 
strip_r( (Node) null, node) ; 
node . set_mag (gui . text_threshold - 0.1); 
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GUI . shrinking_al lowed = true; 
} 

gui . mode_ob j . spread_mode = saved_spread_mode ; 
return ; 

} // end vote_branch 



/** 

** method sim amplify similar nodes to target (same type, linked ANs) 

** if started on AN, call on non-AN children 

*/ 

public void sim (String [] words, int num_words, char sign) { 

int i, size; 

Node node, child; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
i f ( num_words== 1 ) 

node = gui . lastNode ; 

else 

node = find_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) { 
i f ( num__wor d s > 1 ) 

GUI .WARNING (0, "DataSea. sim" + sign, "Can' t find node " +words [1) ) ; 

else 

GUI. WARNING (0, "DataSea. sim" +sign, "Neither Name given nor existing 

lastNode. ") ; 

return ; 

} 

else 

GUI . P ( 0 , "sim" +sign, " Found node named ' " +node . Name+ " • " ) ; 

if (node . isURL) { 

spread__url_sim(node, sign) ; 

} 

if (node.isAN) { // call on all children, no recursion really 
size = node . Links . size () ; 
for (i=0 ; i<size; i++) { 

child = node .getNodeAt Link (i) ; 
if ( ! child . isAN) 

sim (child, sign) ; 

} 

return; 

} 

else 

sim (node, sign) ; 
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node . set_mag (Node . MAX_MAG) ; // Make sure we don't normalize this one down 

return; 
} // end sim 

/* * 

** method sim amplify similar nodes to target (same type, linked ANs) 

** Looks only at child of directly connected ANs , of same 

type as 1 node 1 

*/ 

public void sim (Node node, char sign) { 
int i, j, i_size, j_size; 
Node child, grand_child; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 

// 

spread_url_sim(node, sign); 

i_size = node . Links . size () ; 
for (i=0; i<i_size; i++) { 
child = node .getNodeAtLink(i) ; 
if (child. isAN) 
{ 

GUI . P (0, "sim"+sign, " Type=AN, I_size=" +i_size+" , " +node . Name+" [ " +i+" ] is 
"+child.Name) ; 

j_size = child . Links ♦ size () ; 
for (j=0; j<j_size; j++) { 

grand_child = child . getNodeAt Link (j ) ; 

// DON'T MAG THE AN's ... only the non-ANs 
/******************************************************* 

if (sign == 1 + • ) 

child. a_l it tle_more_mag () ; // mag the intervening AN 

else 

child. a_l it tle_less_mag () ; // inhibit the intervening AN 
*********************************************^ 

// If the type of grand_child is the same as the called node, let's mag it ... 

if ( (grand_chi Id. Type. equals (node. Type) | | (grand_child. isAN) ) && 
grand_child! =node) 

{ 

GUI . P (0 , "sim"+sign, node . Name+" ( 11 +node . Type+" ) -> 
"+child.Name+" ( " +child . Type+" ) -> "+ grand_child . Name+" ( " +grand_child . Type+" ) " ) ; 
if (sign == 1 + ' ) 

grand_child. a_little_more_mag () ,- // mag the grand__child ... 

else 

grand_child. a_little_less_mag () ; // ... or inhibit the 

grand_child 

if (grand_child. isURL) 
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10 



} 
} 
} 

} 

// 



return; 

} // end sim 



spread_url_sim(grand_child, sign) ; 



/** 

** spread_url_sim 

15 

*/ 

public void spread_url_sim (Node node, char sign) { 

int i, size, j, j_size; 

Node child, grand_child=null ; 

20 

size = node . Links . size () ; 
for (i=0 ; i<size; i++) { 

child = node .get NodeAtLink { i) ; 

if (child. isURL) { 

2 5 GUI . P (0, H spread_url_sim" +sign, 

node . Name+ " ( " + node . Type + 11 ) - > 
"+chi ld.Name+" ( "+child. Type+" ) Pol=" 

+node. getPol (child) ) ; 
if (sign == ' + ' ) 

3 0 child . more_mag ( ) ; 

else 

child . less_mag ( ) ; 
if ('-' == node. getPol (child) ) { 

j_size = child. Links . size () ; 

3 5 for (j=0; j<j_size; j++) { 

grand_child = child . getNodeAtLink (j ) ; 
if (grand_child. isURL) { 

if (■+■ == child. getPol (grand_child) ) { 
GUI .P{0, "spread_url_sim"+sign, 

4 0 "2nd- level : "+child.Name+ M ( " +child . Type+" ) • 

>"+grand_child.Name+" (" 

+grand_child.Type+" ) Pol=" 
+child. getPol (grand_child) ) ; 
if (sign == ' + ' ) 

4 5 grand_child . more_mag ( ) ; 



else 



grand_child. less_mag ( ) , 

} 
} 



50 
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} 

} 

} 

} // end spread_url_sim 

/** 
** tickle 
* * 

public void tickle (Node node) { 
int i, size; 
Node child; 

size = node .Links . size () ; 
for (i=0; i<size; i++) { 

child = node . get Node At Link (i) ; 
if (child. isURL) { 

GUI . P (0, "tickle" , node .Name+" tickling " +child.Name) ; 
child.more_mag () ; 

} 

} 

} // end tickle 
*/ 



/** 

** method unsim decrease similar nodes to target (same type, linked ANs) 

public void unsim (String [] words, int num_words) { 
int i, j, i_size, j_size; 
Node node, child, grand_child; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode; 

else 

node = find_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) { 
i f { num_wor d s > 1 ) 

GUI. WARNING ( 0, "DataSea. unsim", "Can't find node "+words [1] ) ; 

else 

GUI .WARNING (0 , "DataSea . unsim" , "Neither Name given nor existing 

lastNode . " ) ; 

return ; 

} 

else 

GUI . P ( 0 , "unsim" , " Found node named ' " +node . Name+ ) ; 



GUI . shrinking_allowed = false; 
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// 

gui . show_node_once (node) ; 
i_size = node . Links . size () ; 

for (i=0; i<i_size; i++) { 

child = node.getNodeAtLink(i) ; 

if (child. isAN && child! =node) { 

j_size = child. Links . size () ; 

for (j=0; j<j__size; j++) { 

grand__child = child . getNodeAtLink (j ) ; 

if (grand_chi Id. Type. equals (node .Type) && grand_child ! =node) 
grand_child. less__mag (child) ; // de-emphasize ANs 

} 

} 

} 

// 

GUI . shrink ing_a 11 owed = true; 

return ; 

} // end unsim 
*/ 

/** 

** isolate 
* ★ 

*/ 

public void isolate () { 

int size, links_size, i,j; 

Node node; 
Link link=null; 
double max_CS=0; 

size = node_vec . size ( ) ; 

GUI . P (0 , " isolate" , "Scanning <" +size+"> nodes."); 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 

// DETERMINE THE MAXIMUM CS FROM ALL THE LINKS TO THIS NODE 
max_CS = get_max_CS (node) ; 
// NOW SET THE MAG PROPORTIONAL TO THE MAXIMUM CS TO THIS NODE 
System. out .print (node .Name +"<"+gui .prec (max^CS, 3) +"> ") ; 
if (max_CS < 0 . 9 * Link . DEFAULT_CS ) 

node . set_mag (max_CS/Link . DEFAULT_CS) ; 

} 

} // end isolate 
★ 

** get_max_CS 
** 

*/ 

public double get_max_CS (Node node) { 
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int i, size; 
Link link; 
double max_CS=0 ; 

5 size = node . Links . size () ; 

for (i=0; i<size; i++) { 

link = (Link) node . Links . elementAt (i) ; 
if (max_CS < link.CS_R) 

max_CS = 1 ink . CS_R ; 
10 if (max_CS < link.CS_L) 

max_CS = 1 ink . CS_L ; 

} 

return (max_CS) ; 
15 } // end get_max_CS 



I -k * 

2 0 ** halve_mags 



* * 



public void halve_mags () { 
int size, i; 

2 5 Node tn ; 

size = node_vec . size () ; 

GUI . P (0, "halve_mags" , "Halving all mags ... size=" +size) ; 
for (i=0; i<size; i++) { 

3 0 tn = (Node) (node_vec . elementAt (i) ) ; 

tn . set_mag ( tn . mag * 0.5); 

} 

} // end halve_mags 

35 

I it * 

** drill_kernel print list of distal ANs 
* * 

*/ 

4 0 public void drill_kernel (Node caller) { 

int i, size; 
Node child; 

size = caller . Links . size () ; 

4 5 for (i = 0; i<size; i + + ) { 

child = (Node) (caller . getNodeAtLink (i) ) ; 
if (child. dist > caller. dist) { 

if (caller. isDN && child. isAN) { // dim' distal DNs after ANs 
gui .global_str [0] = gui .global_str [0] +", 

5 0 "+child.Name+ ,, = "+caller .Name; 
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} 

else if (caller . isDN && child. isDN) 
drill_kernel (child) ; 

} 

} 

} // end drill_kernel 



I ** 
** drill 

*/ 

public void drill (String [] words, int num_words) { 
int i, size; 
Node node, tn; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

else 

node = find_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) { 
if (num_words>l) 

GUI . WARNING ( 0 , "DataSea . drill" , "Can 1 1 find node "+words [1] ) ; 

else 

GUI .WARNING (0 , "DataSea. drill" , "Neither Name given nor existing 

lastNode. ") ; 

return ; 

} 

else 

GUI . P ( 0 , "drill " , " Found node named 1 " +node . Name-*- " ' " ) ; 

// 

gui . show_node_once (node) ; 
size = node . Links . size () ; 

gui .global_str [0] = "Drilling down "+ node . Name +" " ; 
drill_kernel (node) ; 

gui .global_str [0] = gui .global_str [0] + "."; 
gui .global_str_size = 1; 

GUI .P(0, "drill", gui.global_str [03 ) ; 

} // end drill 



** test 



*/ 

public void test () { 
int i, size; 
Node tn; 

gui . test ( ) ; 

gui . show_node_once { f ind_node_named ( "Bob" ) ) ; 

gui . sleep (500) ; 
gui . show_node_once ( f ind_node_named ( "phone" ) ) ; 

gui . sleep (500) ; 
gui . show_node_once ( f ind_node_named { "Web" ) ) ; 

gui . sleep (500) ; 
gui . show_node_once (find_node_named{ "Directory" ) ) ; 

gui . sleep (500) ; 

} // end test 



/** 

* * set_POV 
** 

*/ 

public void set_POV () { 
int i # size; 
Node tn; 

if (GUI . lastNode != null) { 
POV = GUI . lastNode ; 
} 

} // end set_POV 
* 

** repeat_priorCommand 

* * 

*/ 

public void repeat_pri or Command () { 

if (gui . prior Command != null) { 

GUI . P (0 , "repeat_prior Command" , "repeating "+gui .priorCommand) 
gui . input . string_input (gui .priorCommand) ; 

} 

return; 

} // end repe a t_prior Command 
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** reset_mags 
*/ 

public void reset_mags () { 

reset__mags (Node . DEFAULT_MAG) ; 

return; 
}// end reset_mags 

/** 

** reset_mags 
* * 

*/ 

public void reset_mags (double newmag) { 

int size, i, j, child_size; 

Node node, child; 
double max_CS=0 ; 

size = node_vec . size ( ) ; 

gui.text_threshold = gui . DEFAULT_TEXT_THRESHOLD ; 

Root . set_mag (Node .MAX_MAG) ; // to keep others from being normalized to MAX_MAG 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 

max_CS = get_max_CS (node) ; 

node . set_mag (newmag *max_CS) ; // 12/24/99 added max_CS 

} 

} // end reset_mags 



I * * 

* * r e s e t _ANmag s_no_h i s t ory 
** 

*i 

public void re set_ANmags_no_hi story (double newmag) { 

int size, i, j, child_size; 

Node node, child; 
double max_CS=0; 

size = node_vec . size () ; 

gui . text_threshold = gui . DEFAULT_TEXT_THRESHOLD ; 

Root . set_mag (Node ,MAX_MAG) ; // to keep others from being normalized to MAX__MAG 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 

if (node.isAN) 

node . set_mag__no_hi story (newmag) ; 

) 

} // end reset_ANmags_no_history 
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** reset_CSs 
* * 

*/ 

public void reset_CSs () { 
int size, j_size, i, j ; 
Node node; 
Link siblink; 

size = node_vec . size () ; 
for (i=0; i<size; i++) { 

node = (Node) (node_vec . element At (i) ) ; 
node . min_mag = Node . MIN_MAG ; 
j_size = node . Links . size () ; 
for (j=0; j<j_size; j+ + ) { 

siblink = node . get Link (j ) ; 
if (i<10) 

GUI. P (0 , "DataSea.reset_CSs", "resetting CS to 

» +Link . DEFAULT_CS+ 

" for node <"+node . Name+" > and 

<"+siblink.NodeR.Name+">" ) ; 

if (siblink! =null) { 

s ibl ink . set_CS ( Link . DEFAULT_CS ) ; 
} 

} 

} 

} // end reset_CSs 
/ * ★ 

** self_mag 
** 

public void self_mag (Node node) { 
int i, j, size, child_size; 
Node child, grand_child; 
double CS, max_CS; 

size = node_vec.size() ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec . element At (i) ) ; 

child_size = child . Links . size () ; 

max_CS = 0 ; 

for (j=0; j <child_size; j++) { 

grand_child = child.getNodeAtLink ( j ) ; 
CS = child .getCS (grand_child) ; 
if (CS > max_CS) 

max_CS = CS; 

} 

for (j=0; j <child_size ; j++) { 

grand__child = child . getNodeAt Link (j ) ; 
if (CS > max_CS) 



max_CS = CS ; 

} 

} 

} // end self_mag 



/* * 
* * recent 

*/ 

public void recent () { 
int i, size; 

long min_TS, max_TS, median_TS; 
Node tn; 

Node bob, files; 

min_TS = GUI . current_TS ; 
max_TS = 0; 

size = node_vec . size ( ) ; 
/★***★**★★*★****★*****★*★*★*★*** 

for (i=0; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
if (tn. created_TS < min_TS) 

min_TS = tn . created_TS ; 
if (tn . created_TS > max_TS) 

max_TS = tn . created_TS ; 
} // now we have min and max 

median_TS = min_JTS + (max_TS - min_TS)/2; 
**********************************/ 



for (i=0 ; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
if (tn.created_TS > GUI . current_TS- 30000) 
tn. set_mag (tn .mag * 2); 

} 



GUI.P(0, "recent", "min=" +min_TS+" , max= " +max_TS+" , median= " +median_TS) 
bob = f ind_node_named ( " Bob " ) ; 
if (bob != null) 

GUI.P(0, "recent", "Bob . created_TS=" +bob . created_TS) ; 
files = f ind_node_named ("Files") ; 
if (files null) 

GUI . P ( 0 , " recent " , " Files . created_TS= " +f iles . created_TS) ; 
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***********************************/ 

} // end recent 
/** 

** word_fn run a function on selected_node (s) 

*/ 

public void word_fn (String [] words, int num_words) { 
Node node, t node- 
Node node_array [ ] ; 
int i, j, size; 

GUI . P ( 0 # "DataSea.word_fn" , "Started. "J ; 

node_array = new Node [2]; 

node_array [ 0 ] = (Node ) (gui . selected_nodes_vec . element At ( 0 ) ) ; 
node^ar ray [ 1 ] = (Node) (gui . selected_nodes_vec . elementAt (1) ) ; 
if (node_array [0] ==null) 
{ 

GUI .ERROR (0, ' 1 word_fn ,, , "node_array [0] is null"); 
return; 

} 

if (node_array [1] ==null) { 

GUI . ERROR (0 , "word_f n» , "node_array [1] is null " ) ; 
return; 

} 

GUI . P (0 , 11 fn: " , node_array [0] .Name+" "+node_array [1] . Name) ; 

GUI.P(0, "fn: ", (node_array [0] . getNodeAtLink (1) ) .Name+" 

"+ (node_array [1] .getNodeAtLink (1) ) .Name) ; 

GUI .P(0, "fn: " , (node__array [0J . getNodeAtLink (2 ) ) .Name+" 

"+ (node_array [1] . getNodeAtLink (2 ) ) .Name) ; 

GUI .P (0, "fn: " , (node_array [0] . getNodeAtLink (3 ) ) .Name+" 

11 + (node_array [1] . getNodeAtLink (3 ) ) .Name) ; 

/*************★******************************** 
for (j=0; j<2; j++) { 

node = node_array [ j ] ; 

size = node .Links . size () ; 
GUI . P (0 , "word_fn" , node .Name +" size is "+size) ; 

for (i=0; i<size; i++) 

{ 

tnode = node .getNodeAtLink (i) ; 
if (tnode ! =null) 

{ 

if (tnode. isAN) 

{ 
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GUI . P (0 , "word_fn" , "DN "+node.Name+" is connected to 

n +tnode.Name) ; 

} 

} 

*******************************************/ 
} // end word_fn 



/* * 

** con find a CN for lastnode, mag children of that CN 
* ★ 

*/ 

public void con () { 

int i f size, ti, tsize=0; 

Node tn, ttn=null; 

if (gui . lastNode == null) 
return ; 

size = gui .lastNode .Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (gui . lastNode . getNodeAtLink (i) ) ; 

if (tn.isCN) { 

tn . more_mag (gui . lastNode) ; 

// NEED A SIMPLER WAY TO SIMPLY MAGNIFY IMMEDIATE SURROUND 
tsize = tn. Links . size () ; 
for (ti=0; ti<tsize; ti++) { 

ttn = (Node) (tn. getNodeAtLink (ti) ) ; 

ttn.more_mag (tn) ; 

} 

} 

} 

return; 

} // end con 

/★* 

** SS create a ' spread- sheet ' , using DNs connected to 2 selected AN's 

*/ 

public void SS (String [] words, int num_words) { 
Node AN 1= null, AN2=null, DNl=null, DN2=null, SS_node=null ; 
int i; 

int line_num=l; 

gui .global_str_size=0 ; // Must reset if creating new global_str 
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GUI.P(0, "DataSea.SS" ( "Started.") ; 

if (num_words == 1) // no args given, use gui.lastNode 

{ 

DN1 = gui.lastNode; 

} 

if (num_words ==2) // one args given, use it 

{ 

DN1 = f ind_node_named (words [1] ) ; 
// CHECK FOR ERRORS 
if (DNl==null) 
{ 

GUI. ERROR (0, "DataSea.SS", "Can't find node " +words [1] ) ; 

return; 

} 

} 

// NOW WE HAVE DN1 TO OPERATE FROM 

DN2 = DN1 . getDN ( 0 ) ; 

if (DN2==null) 
{ 

GUI . ERROR (0, "DataSea.SS" , "Null DN2 from DN1 = " +DN1 . Name ) ; 

return; 

} 

// NOW WE HAVE DN2 TO OPERATE FROM 

AN1 = DNl.getAN(O) ; 
AN 2 = DN2 . getAN ( 0 ) ; 
if <ANl==null) 
{ 

GUI .ERROR (0, "SS" , "AN1 is null"); 

return; 

} 

if <AN2==null) { 

GUI .ERROR (0, "SS", "AN2 is null"); 

return; 

} 

DNl=null; 
DN2=null; 

// NOW WE HAVE AN1 and AN2 TO OPERATE FROM 

SS_node = new Node ( "SSheet" , " Form" , "Spread Sheet node", 100, 100, 120,140); 
// Run through AN's, get all DN's 

gui.global_str [gui .global_str_size++] =ANl.Name+" "+AN2.Name; 
gui .global_str tgui .global_str_size++] =" 

i=0; // initialize counter to catch all DN's of the AN's we have established 
DN1=AN1 .getDN (i) ; 
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if (DN1 »^ null) 

DN2=DN1 . getDN_connected_to_AN {AN 2 ) ; 

else 

DN2=null; 
SS_node.link(DNl) ; 
SS_node . link (DN2 ) ; 

set_child_position(SS_node, DN1, 0.01, 0 . 1* (++line_num) ) ; 
set_child_position(SS_node, DN2 , 0.51, 0 . 1* (line_num) ) ; 

while (DN2!=null && gui . global_str_size<9) 
{ 

gui .global_str [gui . global_str_size++] = DNl.Name+" 
" +DN2 .Name; 

i++; 

DN1=AN1 .getDN(i) ; 
if (DN1 != null) 

DN2=DNl.getDN_connected_to_AN(AN2) ; 

else 

DN2=null; 

if ( (DN1 != null) && (DN2 != null)) { 
SS_node . link (DN1) ; 
SS_node . 1 ink (DN2 ) ; 

set_child_position (SS_node, DN1, 0 . 01, 0.1* (++line_num) ) ; 
set_child_position (SS_node , DN2 , 0.51, 0.1* ( line_num) ) ; 
} 

} 

line_num ++; 
SS_node . link (AN1) ; 
SS_node . link (AN2 ) ; 

set_child_position(SS_node, AN1 , 0.01, 0 . 1* (++line_num) ) ; 
set_child_jposition(SS_node, AN2 , 0.51, 0 . 1* ( line_num) ) ; 

reset_and_zoom ( " S Sheet " ) ; 

GUI.P(0, "SS", "Done. ") ; 

return; 

} // end SS 

/** 

** word_mail create a 'mail' application DEFUNCT 

V 

public void word_mail {String [] words, int num__words) { // DEFUNCT 
Node name_node=null, address_node=null , target_node=null ; 
Node MailForm_node=null , To_node=null; 

GUI . P ( 0 , "DataSea. word_mail" , "Started. " ) ; 
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if (num__words==l) { 

target_node ■ gui . lastNode; 

} 

else if (num_words==2) { 

target_node = find_node_named (words (1] ) ; 
} 

if (target_node == null) { 

GUI .ERROR (0, " DataSea. wordjmail " , "No node selected nor given as 

name node . " ) ; 

return; 
} 

set_dist_start (target_node) ; // NEED FOR PROPAGATING 
// FIND A NAME 

GUI . P (0 , "DataSea . word_mail " , "Looking for ' name ' : " ) ; 
name_node=gui . lastNode . getAN_named ( "name" , 4 ) ; 
if (name_node == null) { 

GUI . ERROR ( 0 , "DataSea . word_mail " , "No node found for name node , 
given target_node • 11 

+target_node .Name+" ' . ") ; 

return; 
} 

// FIND AN ADDRESS 

GUI . P (0 , "DataSea .word jtnail" , "Looking for 1 address 1 : " ) ; 
address_node=gui . lastNode . getAN__named ( "address" ,4) ; 
if (address_node == null) { 

GUI .ERROR (0, "DataSea. word_mail" , "No node found for address node, 
given targe t_node ' " 

+target_node .Name+" ' . " ) ; 

return ; 
} 

DataSea. needdistUpdate = true; // Reset all Node.dist's 

GUI . P (0, "DataSea. word_mail" , "Creating mail form for target node 
1 "+target_node .Name+" ' . " ) ; 

MailForm_node = new Node ( "MailForm" ," Form" , " " , 50 , 50, 50, 50); 

To_node = new Node("To: " , "DN" , " " , -20 , 10 , 1, 1) ; 

name_node . setx ( " word_mail " , 3 0, 10 ) ; 

address_node . setx ( " word_mail " , 30, 30); 

MailForm_node . link (address_node) ; 

MailForm_node . link (name_node) ; 

Ma i 1 Form_node . 1 ink ( To_node ) ; 

} // end word_mail DEFUNCT 
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** word_focus make node the POV 

*/ 

public void word_focus (String!] words, int num_words) { 
Node node; 

GUI . P ( 0 , "DataSea.word_focus" ( "Started. ") ; 
// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (mim_words==l ) 

node = gui . lastNode ; 

else 

node = find_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) 
{ 

GUI .ERROR (0, "DataSea.word_focus" , "Can* t find node "+words [1] ) ; 
return ; 

} 

// NOW, DO WHAT'S ASKED OF US 
POV=node ; 

} // end word_focus 



I * * 

** find_jnax Select for us the node with greatest mag 
** 

*/ 

public void find^max () { 
int i, size; 

Node node=null, saved_node=null ; 
doubl e saved_mag=Node . MIN_MAG ; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node ■ (Node) (node_vec .element At (i) ) ; 
if (node. mag > saved_mag) { 
saved_node = node; 
saved_mag - node. mag; 
} 

} 

// Now, select for us the node with greatest mag 
gui. lastNode = saved_node; 
i f ( saved_node ! = nul 1 ) 

GUI . P ( 0 , " f ind_max" , "max mag is " +saved_node . mag+ " for " +saved_node . Name) 

else 



GUI . P ( 0 , " f ind_max n , "No saved_node found . " ) ; 

return; 

} // end find_max 



I * * 

** pulse From all AN's, add AN. mag to children. 

** Used after drawDN was false and not positioned 

★ ★ 

*/ 

public void pulse () { 
int i, size, j, j_size; 
Node node=null, child=null; 

GUI . P(0, "DataSea. pulse" , "Started. ") ; 
GUI . P ( 0 , "DataSea. pulse" , "Started. " ) ; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

node m (Node) (node_vec. element At (i) ) ; 
j_size = node . Links . size () ; 
for ( j=0; j<j_size; j++) { 

child = (Node) (node. getNodeAtLink(j) ) ; 
if (child. isDN) { 

child. set_mag (child. mag + node. mag ) ; 
} 

} 

} 

GUI.P(0 / " DataSea. pulse 11 , "Done.") ; 
return ; 

} // end pulse 



/* * 

** word_select select node 'find'->set lastNode, 'select' 

node . isSelected 
*/ 

public void word_select (String [} words, int num_words) { 
Node node=null ; 
int i, size; 

String string_without_command= " " ; 
if (num_words >= 2) { 

string_without__command = words [1] ; 

for (i=2; i< num_words; i++) 



PATENT 



string_without_command = string_without_command+" "+words[i]; 

} 

GUI.Pd, "DataSea.word_select", "Started.") ; 
// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if ( num_ words = = 1 ) 

node = gui.lastNode; 

else { 

if (words[0] . equal slgnoreCase ( "AN" ) ) 

node = f ind_node_named (words [1] , "AN"); 

else 

if (words [0] . equal slgnoreCase ( "DN" ) ) 

node = f ind_node_named (words [1] , "DN"); 

else 

node = f ind_node_named(string_without_command) ; 

} 

// CHECK FOR ERRORS 

if (node==null) 
{ 

GUI. WARNING (0, "DataSea . word_select " , "Can't find 
"+string_without_command) ; 

return; 
} 

// NOW, DO WHAT'S ASKED OF US 
gui . last Node = node ; 
gui . show__node_once (node) ; 

if (words [0] . equal slgnoreCase ( "select ") ) { 
node . isSelected = true; 

gui . select ed_nodes_vec . addElement (node) ; 

} 

} // end select 



/** 

** word_unselect unselect all nodes 

*/ 

public void word__unselect (String [] words, int num_words) { 
Node node, child ; 
int i, size; 

GUI . P (0, "DataSea. word_unselect" , "Unselecting all nodes."); 

if (words [0] . equals IgnoreCase ( "unselect ") || words [0] . equals IgnoreCase ( "un" ) ) { 
if (num_words -= 2) { 

node = find_node_named (words [1] ) ; 
if (node ! = null) { 

unselect (node) ; 
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} 

} else { 

unselect ( (Node) null) ; 
} 

} // end check of 'unselect' command 

return ; 

} // end word_unselect 



** unselect unselect 
*/ 

public void unselect (Node node) { 
Node child; 
int i, size; 

GUI . P (0, "DataSea. unselect ", "Unselecting all nodes."); 

// Loop on all nodes, unselect them and remove from list 
size = node_vec . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec .element At (i) ) ; 

child. isSelected = false; 

gui . selected_nodes_vec . removeElement (child) ; 

} 

return; 

} // end unselect 
/* * 

** word_delete delete node WARNING! dangerous method 

*/ 

public void word_delete (String [] words, int num_words) { 
Node node; 

GUI.P(0, "DataSea.word_delete" , "Started. ") ; 
// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

else 

node = find_node_named (words [1] ) ; 

// CHECK FOR ERRORS 

if (node==null) 
{ 

GUI . WARNING ( 0 , "DataSea . word_delete " , "Can't find node "+ words [1] ) ; 

return; 

) 

// NOW, DO WHAT'S ASKED OF US 
node . unl ink_al 1 ( ) ; 
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}// end word_delete (delete node) ; 



/** 

* * word_release 
*/ 

public void word_release (String [] words, int num_words) { 
Node node=null; 
String name= 11 UNKNOWN" ; 

GUI . P (0, "DataSea. word_release" , "Started. " ) ; 

if (POV == null) { 

GUI .WARNING (0, "DataSea. word_release" , "Need a POV."); 

return ; 

} 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

else 

if (num_words==2) { 

node = f ind_node_named (words [1] ) ; 
if (node != null) 

name = node . Name ; 

} 

// CHECK FOR ERRORS 
if (node==null) 
{ 

GUI . WARNING ( 0 , "DataSea . word_re lease " , "Can't find node < "+name+" >" ) ; 
return; 

} 

else 

name = node . Name ; 

GUI . P (0, "DataSea. word_re lease" , "About to release ' "+node .Name+" 1 from POV"); 
// NOW, DO WHAT'S ASKED OF US 

POV . unl ink ( node ) ; 

node . unlink ( POV) ; 

return ; 

} // end word_release 
/* * 

* * word_unl ink 
*/ 
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public void word_unlink (String [] words, int num__words) { 
Node nodel=null, node2=null; 

GUI . P ( 0 , "DataSea. word_unlink" , "Started. » ) ; 

if (num_words<2) { 

GUI . ERROR (0 , "DataSea. word_unl ink" , "Need at least one argument 
(unlink [link_bet ween] nodel node2)"); 
return; 

} 

if (num_words>3) { 

GUI .ERROR (0, "DataSea. word__unl ink" , "Need at most two arguments 
(unlink [link_between] nodel node2)"); 
return; 

} 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==2 ) 
{ 

if (POV != null) 

nodel = POV; 

else 

nodel = gui . lastNode; 
node2 = find_node_named (words [1] ) ; 

) 

i f ( num_words = - 3 ) 

{ 

nodel = find_node_named (words [1] ) ; 
node2 = f ind_node_named (words [2] ) ; 

} 

// CHECK FOR ERRORS 

if ( (nodel==null) || (node2==null) ) 
{ 

GUI . ERROR (0, "DataSea . word_unl ink " , "Can' t find either nodel or 

node2 " ) ; 

return ; 

} 

GUI . P (0 , "DataSea.word_unlink" , "About to unlink 1 " +nodel . Name+" 1 from 

' M +node2 .Name+" ' ") ; 

// NOW, DO WHAT'S ASKED OF US 

nodel .unlinkjboth (node2) ; 

} // end word__unlink 



** word_link 
*/ 

public void word__link (String [] words, int num_words) { 
Node nodel=null, node2=null; 
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GUI.P(0, "DataSea.word_link", "Started.") ; 

/★★*****★***★** 

if (num_words<2) { 

GUI. ERROR (0, "DataSea . word__link" , "Need at least one argument 
(link [link_between] nodel node2)"); 
return; 

} 

★*★***★*****★*/ 

if (num_words>3) { 

GUI . ERROR (0, "DataSea.word_l ink" , "Need at most two arguments 
(link [link_between] nodel node2)"); 
return; 

> 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if ( (num_words==l) && (POV!=null)) 
{ 

nodel = POV; 

node2 = gui . lastNode ; 

} 

if (num_words==2) 

{ 

nodel = gui . lastNode; 

node 2 = f ind_node_named (words [1] ) ; 

} 

i f ( num_words = = 3 ) 

{ 

nodel = find_node_named (words [1] ) ; 
node2 = f ind__node_named (words [2] ) ; 

} 

// CHECK FOR ERRORS 

if ( (nodel==null) || (node2==null) ) 
{ 

GUI . ERROR (0, "DataSea.word_link" , "Can' t find either nodel (or 
lastNode) or node2 M ); 

return ; 
} 

GUI .P (0, "DataSea.word_link" , "About to link ' "+nodel .Name+" 1 to 
' "+node2.Name+" » ") ; 
// NOW, DO WHAT'S ASKED OF US 
nodel . link (node 2 ) ; 

} // end word_link 



/ * * 
★ * 



word most 
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*/ 

public void word__most (String [] words, int num_words) { 
GUI. P(0, "DataSea. word_most", "NO CODE YET."); 
// NOW, DO WHAT'S ASKED OF US 

} // end word_most 



/★* 
/** 

* * word_rename 
*/ 

public void word_rename (String [] words, int num_words) { 
Node node=null; 

S t r ing new_name = " D E FAULT_NEW_NAME " ; 

GUI.P(0, "DataSea.word_rename" , "Started.") ; 
// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
i f ( num_words < 2 ) 

{ 

GUI . ERROR ( 0 , "DataSea . word_rename " , "Need at least one argument for 

new name . " ) ; 

return ; 

} 

i f ( num_words > 3 ) 

{ 

GUI . ERROR ( 0 , "DataSea . word_rename" , "Need at most two arguments : 
node and new_name . " ) ; 

return ; 

} 

if (num_words==2) { 

node = gui . lastNode; 
new_name = words [ 1 ] ; 

} 

else 

if ( num_words= = 3 ) { 

node = f ind__node_named (words [1] ) ; 

new_name = words [2] ; 

} 

// CHECK FOR ERRORS 

if (node==null) 
{ 

GUI . ERROR ( 0 , " Dat aSea . word_r ename " , 11 Can ' t f ind node " + words [ 1 ] ) ; 
return; 
} 

// NOW, DO WHAT'S ASKED OF US 
node . Name = new_name ; 
} // end word_rename 



** and 
* * 

*/ 

public void and (String [] words, int num_words> { 
Node node_l , node_2 ; 
int i; 

node_l = find_node_named (words [1] ) ; 
if (node_l==null) 
{ 

GUI. ERROR (0, "and" , "node_l is null"); 
return; 

} 

node_2 = f ind__node_named (words [2] ) ; 
if (node_2==null ) 
{ 

GUI . ERROR ( 0 , " and » , " node_2 is nul 1 " ) ; 
return; 

} 

GUI . P ( 0 , " and" , "OK : node_l is " +node_l . Name+" , node_2 is 

back_r ( (Node ) node_l , node_2 , 0 ) ; 
} // end and 



J * * 

** print__print_upstream 
* ★ 

*/ 

public void print_upstream (Node caller, Node node) { 
int i, size; 
Node child; 

if (node == null) { 

GUI . ERROR ( 0 , "DataSea . print_up stream" , "NULL node given" ) 
return; 

} 

if (caller == null) 

System. out . print In ( " " ) ; 

else 

Sy stem. out .print ( " -> "+node .Name+" { "+node .dist+" } " ) ; 
size = node . Links . size () ; 
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for (i=0; i<size; i++) { 

child = node. get Node At Link (i) ; 
if (node .goesUp st reamTo ( child ) ) { 
if (caller == null) 

System. out . print In (node .Name+" { "+node . dist+" } " ) ; 
print_up st ream (node, child); 

} 



else 

10 } 



System. out .print In ( " " ) ; 



} // end print_upstream 
/* * 

15 ** method Back like back (node), but setjrdist is run on all children of 

node 

*/ 

public void Back (String [] words, int num_words) { 
int i, size; 

2 0 Node node, child, grand_child; 

if (num_words<l) 

return; 
if (POV==null) 

2 5 return; 

// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

3 0 else 

node = find_node_named (words [1] ) ; 

if (words [0] .equals IgnoreCase ("what s") ) { 
whats = true; 

35 } 

// CHECK FOR ERRORS 

if (node==null) { 
i f ( num_word s > 1 ) 

40 GUI. WARNING(0, "DataSea. Back", "Can't find node "+words[l]); 

else 

GUI .WARNING (0, "DataSea. Back" , "Neither Name given nor existing 

lastNode . " ) ; 

return ; 

45 } 

else 

GUI . P ( 1 , "DataSea . Back" , " Found node named ' " +node . Name+ " ' " ) ; 

// f or children of POV child 

50 child - POV.getNodeAtLink(O) ; 
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size = child. Links . size () ; 
for (i=0 ; i<size ; i++) { 

grand_child = (Node) (child. getNodeAt Link (i) ) ; 

GUI . P (0 , "DataSea . Back" , "Working on POV child named ^"+child.Name 

+ " ' grand_child named * "+grand_child.Name+" ' " ) ; 
set JTdist_start (grand_child) ; // ORDER FROM ALL CHILDREN OF POV CHILD, 
THEN RUN backer () 

back_r ( (Node) null, node, 0); 

} 

// end for children of POV child 

}// end Back 

/* 
* 

*/ 

public Node f igure_out_node (String caller_fn, String [] words, int num_words) { 
Node node; 

if (num_words<l) 

return ( (Node) null) ; 
// HANDLE IDENTIFYING THE CORRECT NODE TO START ON 
if (num_words==l) 

node = gui . lastNode ; 

else 

node = f ind_node_named (words [1] ) ; 
if (node==null) { 

GUI .WARNING (0, caller_fn, "Null node, quitting."); 
} 

else 

GUI . P (0 , caller_fn, "Found node named ' "+node .Name+" 1 " ) ; 

return (node) ; 

} // end f igur e_out_node 

/ * * 

** method back3 
*/ 

public void back3 (String [] words, int num_words) { 
Node node; 

if (null == (node = f igure_out_node ( "back3 " , words, num_words) ) ) 
return; 

set_Tdist_start (node) ; // NEED FOR SETTING VARIABLE 1 TDIST ' 

System . err . println ( " " ) ; 
back2 (node) ; 
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System . err . println ( " " ) ; 
return ; 

} // end back3 

/** 
** back2 
* * 

*/ 

public boolean back2 (Node node) { 
int i, size; 

boolean ret_val = false; 
Node child=null; 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 
child = node .getNode At Link <i) ; 

if (child. dist == POV.dist+1) { 
ret_val = true; 
child.more_tnag () ; 

System. out .println ( "+++ back2 ; next to POV, " 

+"mag++ of " +child . Name) ; 
return (ret_val) ; 

} 

if (child. dist < node. dist) { // we may do something 

//System. out .println ("+++ back2 ; at POV+1 point, mag++ node =" +node .Name +" , 
child="+child.Name) ; 

//System . out . println ( 11 back2 ; ' " +node . Name+" * - > recurs ing on 
,f +child.Name) ; 

if (true==back2 (child) ) { 
ret_val = true; 

System. out .println ( "+++ back2 ; path-point, child<node, " 

+"mag++ of "+child .Name) ; 
child.more_mag ( ) ; // else ret_val is false 

} 
} 

} 

//System. err .println ( " returning ( "+ret_val+ M ) <- 
( "+node .Name+" ,Tdist="+node .dist+" ) ") ; 
return ( r et_val ) ; 

//else if ( child. Type ==node .Type) {} // recurse if same type and not next to POV 
} // end back2 



/*★ 

** method backt 

V 



amplify mag going backwards, calls backer 
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public void backt (String [] words, int num_words) { 
int i,j,k, size, sizel, size2; 

Node node, childl=null, child2=null, child3=null; 
/**************★*********************** 

if (null == (node = f igure_out_node ( "backt" , words, num_words))) 
return; 

**************★*************★*********/ 
if (null == (node=POV) ) { 

System. out .print ln( "backt () : need a POV."); 

return; 

} 

System. out .print In ("backt () : starting on POV."); 
// 'node' is POV 

// for children 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

childl = (Node) (node .get NodeAt Link (i) ) ; 
System. out .print In ("childl is " +childl .Name) ; 
sizel ■ childl . Links . size () ; 
for (j=0; j<sizel; j++) { 

child2 = (Node) (childl. getNodeAtLink(j) ) ; 
if (child2 != node) { 

System. out .println( " child2 is "+child2 .Name) ; 
//else 

//System. out .println(" (skipping) " +child2 .Name) ; 
} 

size2 = child2 . Links . size () ; 
for (k=0; k<size2; k++) { 

child3 = (Node) (child2 . getNodeAtLink (k) ) ; 

if (child3 != childl) { 

System. out .print In (" child3 is "+child3 .Name) ; 

System . out . println ( " 
pol= 1 "+child2 .getPol (child3) +" 1 , isPolarized=" +child3 . isPolarized) ; 
//else 

//System. out .println (" (skipping) " +child3 . Name) ; 

if (child3 . isEvent) 

mag_downhill_event (child3) ; 

} 
} 

} 

} 

// enc i for children 

return; 

} // end backt 
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/** 

** mag_downhill_event 
* * 

*/ 

public void mag_downhill__event (Node node) { 
int i, size; 
Node child; 

if (node . isEvent) 

node . more_mag ( ) ; 
size = node. Links . size () ; 
for (i=0; i<size; i++) { 

child = node.getNodeAtLink (i) ; 

Sys tern. out .print In ("Is •"+ child .Name +" « downstream from ' " +node . Name+" ' ? 
"+node.goesDownstreamTo (child) ) ; 

if (node .goesDownstreamTo (child) ) 
mag_downhill_event (child) ; 

} 

} // end mag_downhill_event 



I * * 

** mark_distally 
* * 

*/ 

public void mark__dis tally (Node node) { 
int i, size; 
Node child; 

node . isMarked = true; 
size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node.getNodeAtLink (i) ) ; 

if (child. dist > node.dist) 

mark_distally (child) ; 

} 

return ; 

} // end mark_distally 

J -k * 

** method showdist 
*/ 

public void showdist (Node node, int Tdist) { 
Node child; 
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int i, size; 

// for children 

size ■ node . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node .getNodeAt Link (i) ) ; 
if (child. Tdist == Tdist) { 

gui .dump_node (0, false, child); 

gui . show_node_once (child) ; // experiment 

gui . sleep (300) ; 

} 

if (child. Tdist > node. Tdist) // recurse only if we go distal 
showdist (child, Tdist); 

} 

// en d for children 

return; 

} // end showdist 
/** 

** method showdist 
*/ 

public void showdist (String [] words, int num_words) { 

Node node=null; 

int i, size, Tdist=0; 

if (num_words ==1) { 

if (gui . lastNode != null) 
node = gui . lastNode ; 

else 

GUI .WARNING (0, "showdist" , "no name given, nor lastNode"); 

} 

else if (num_words > 1) { 

node = find_node_named (words [1] ) ; 
// CHECK FOR ERRORS 
if (node==null) 
{ 

GUI .ERROR (0, "DataSea. showdist" , "Can 1 t find node "+words [1] ) ; 
return; 

} 

} 

if (num_words > 2) { 
if (words [2] .equals ("1") ) 
Tdist = 1; 

else 

if (words[2] .equals("2") ) 
Tdist = 2; 

else 

if (words [2] . equals (» 3 ") ) 
Tdist = 3; 
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else 

if (words[2] .equals("4") ) 
Tdist = 4; 

else 

if (words [2] . ecjuals ( " 5 " ) ) 
Tdist = 5; 

} 

gui .getToolkit (). sync () ; // wait for things to calm down 

System, err .println ( "showdist , Tdist set to ,r +Tdist) ; 
set_Tdist_start (node) ; 
showdist (node, Tdist); 
return; 

} // end showdist 
/★* 

** method showdist 

public void showdist (Node node) { 
int i ; 

if (node == null) 
return; 

add_POV() ; 

POV. link (node) ; 

set_dist_start (POV) ; // need for use with set_Tdist_recursive recursion 

logic 

POV. set Links VRparmsTo (node) ; // USE THE EXISTING VR PARMS IN THE NEW 

LINK 

GUI.P(0, "DataSea . showdist" , "Linking node "+node.Name) ; 
mag { node , " bo t h " , " + " , 2 ) ; 
gui . lastNode = node ; 

} // end showdist (Node node) 
*/ 



/* * 

** method showCNs 
*/ 

public void showCNs () { 
int i, size; 

Node node, tn=null, CNode=null; 

if (gui . lastNode == null) 

return; 
node = gui . lastNode ; 

GUI. P(0, "DataSea. showCNs", "Called on node " +node . Name ) ; 
gui . drawCN = true ; 
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size = node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = (Node) (node . get Node At Link (i) ) ; 
5 CNode = node .get CNodeAt Link (i) ; 

if (CNode != null) { 

GUI . P ( 0 , " DataSea . showCNs " , " Found CNode " +CNode . Name ) ; 
CNode . set_mag (Node . MAX_MAG) ; 

} 

10 

} 

return ; 

} // end showCNs 

15 

/** 

** method dumpCNs 
*/ 

public void dumpCNs () { 
2 0 int i, size; 

Node node, tn=null, CNode =null; 



// for all nodes 

2 5 size = node_vec . size ( ) ; 

for (i=0; i<size; i++) { 

tn = (Node) (node_vec . element At (i) ) ; 
if (tn.isCN) 

gui . dump_node ( 0 , t rue , tn) ; 

30 } 

// end for all nodes 



return ; 

} // end dumpCNs 



35 



/** 

** freeze 

40 

*/ 

public void freeze () { 
int i, size; 
Node child; 

45 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child = (Node) (node_vec .elementAt (i) ) ; 
50 child. isFrozen = true; 
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} 



} // end freeze 
/** 

** unfreeze_all 
** 

*/ 

public void unfreeze_all () { 
int i, size; 
Node child; 

size = node_vec . size ( ) ; 
for (i=0; i<size; i++) { 

child ■ (Node) (node_vec .element At ( 

child. isFrozen = false; 

} 

} // end unfreeze_all 
/** 

** unfreeze Top Level version 

* * 

*/ 

public void unfreeze () { 
Node node; 

node = gui . lastNode; 
if (node==null) 
return; 

unf reeze_r (node) ; 
return ; 

} // end unfreeze 
/** 

** unfreeze^ Recursive version 

* * 

*/ 

public void unfreeze_r (Node node) { 
Node child; 
int i, size; 

node . isFrozen = false; 

size = node .Links . size () ; 
for (i=0; i<size; i++) { 

child = node . get Node AtL ink (i) ; 
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if (child. dist > node.dist) 
unfreeze_r (child) ; 

} 

return ; 

} // end unfreeze^ 
/* * 

** method show 
*/ 

public void show (Node node) { 
int i ; 

if (node == null) 
return; 

GUI .P (0, "DataSea. show" , "Called on node " +node . Name) ; 
add_POV() ; 
POV. link (node) ; 

//set_dist_start (POV) ; // need for use with set_Tdist_recursive recursion 

logic 

POV. set Links VRparmsTo (node) ; // USE THE EXISTING VR PARMS IN THE NEW 

LINK 

GUI . P ( 0 , " DataSea . show" , 11 Linking node " +node . Name ) ; 
node. set_mag (Node. EMPHASIZED_MAG) ; 
gui.lastNode = node; 
needdistUpdate = true; 

} // end show (Node node) 
/* * 

** method show 
*/ 

public void show (String input_string) { 
Node node; 

int num_words, jnum_words; 
String j words []; 

StringTokenizer st = new StringTokenizer (input_string, ","); 

num_words = st . countTokens ( ) ; 

String [] words = new String [num_words 3 ; 

System. err .print In ( "num_words is ,, +num_words+" / input_string is 
< " +input_string+ " > " ) ; 

for (int i = 0; i < num_words; i++) { 
words [i] = st .nextToken () ; 

System, err .println ( "broken into words: < 11 +words [i] +" >" ) ; 
if (i>0) { 
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Node nodex; 

nodex = f ind_node_named (words [i] ) ; 
if (nodex != null) { 

System. err .println ( "back_r on " +nodex.Name+" , 
5 Tdist="+nodex.dist) ; 

back_r ( (Node) null , nodex, 0) ; 
normalize ( ) ; 

} 

} 

10 StringTokenizer sst = new StringTokenizer (words [i] , " , . <>\ " \t\r\n" ); 

jnum_words = sst . countTokens () ; 
if (jnum_words > 0) { 
j words = new St r ing [ j num_words ] ; 
for(int j = 0; j < jnum_words; j++) { 
15 jwords[j] = sst .nextTokenO ; 

if (i==0 && j==D { 

show ( f ind_node_named ( j words [ j ] ) ) ; 

} 

} 

20 } 

} 

return; 

} // end show 



25 



public void show2 (String [j words, int num_words) { 
Node node; 



if (null == (node = f igure_out__node ( " show2 " , words, num_words) ) ) 

3 0 return ; 

show (node) ; 
} // end show2 

35 

/* * 

** method show alternate arguments 
*/ 

public void show2 (String word) { 

4 0 Node node; 

String s[] = new String [2] ; 
s[0] = new String ("show") ; 
s [1] = new String (word) ; 
4 5 show2 ( s , 2 ) ; 

} // end show2 



50 
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** method word_save 
*/ 

public void word_save () { 
gui .magscale - 1; 
5 absorb_POV (true) ; 

reset_mags ( ) ; 
reset_selected ( ) ; 
gui .globalMaxPressure = 1.0; 
local (Root) ; 

10 simplify_recursive ( (Node) null, Root); 

} // end word_save 

/★ * 

** method word_reset 
15 */ 

public void word_reset () { 

gui .global_str_size = 0; 
gui. magscale = 1; 
unfreeze_all () ; 
2 0 absorb_POV( false) ; 

reset_mags () ; 
reset_selected ( ) ; 
gui . globalMaxPressure = 1.0; 
local (Root) ; 

2 5 simplify_recursive ( (Node) null, Root) ; 

} // end word_reset 

/* * 

** method reset_selected 
V 

3 0 public void reset_selected () { 

int i, size; 
double x, y; 
Node tn; 

3 5 gui . global_str_size = 0; 

size = node_vec . size () ; 

GUI . P (2 , "reset_selected" , "Resetting selected" ) , 
for (i=0; i<size; i++) { 

4 0 tn = (Node) (node_vec . element At (i) ) ; 

if (tn != null) { 

tn. isSelected = false; 
tn.isMarked = false; 
if (tn.isAN) { 
45 tn.x = tn.X; 

tn.y m tn.Y; 
} else { 

x = 0; 
y = 0; 

50 tn.x = x ; 
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tn.y = y; 

} 

} 

> 

gui . selected_nodes_vec = new Vector (10); 
} // end reset_selected 

/** 

** method word_zoom 
*/ 

public void word_zoom {String [] words, int num_words) { 

if (num_words ==1) { 

if (gui . lastNode != null) 

zoom (gui . las tNode .Name) ; 

else 

GUI . WARNING ( 0 , " word_zoom" , "no name given, nor lastNode"); 
} 

else if <num_words > 1) { 
zoom (words [1] ) ; 

} 

} // end word_zoom 

public void zoom (String name) { 
Node node; 

double i, smooth__mot i on_ frames =2 , temp_X0f f set=0 , temp_YOf f set=0 ; 



node = f ind_node_named (name) ; 
if (node != null) { 

temp__XOf f set - (node . x -gui . WindowXOff set ) /smooth_motion_f rames ; 
temp_YOf f set = (node . y-gui . WindowYOff set ) /smoothjnotion_f rames ; 
for (i=0; i<smooth_motion_f rames; i++) { 

gui .WindowXOff set +=(int) temp_XOf f set ; 

gui .WindowYOff set +=(int) temp_YOf f set ,- 

gui .update (1) ; 

} 

GUI . P (1, "DataSea . zoom" , "Centering on 
"+node.Name+", (x, y) = ( » +node . x+" , "+node.y+") " ) ; 

GUI.P(1, "DataSea. zoom" , "WindowXOf f set="+gui .WindowXOff set) ; 

} 

else 

{ 

GUI .WARNING (0 , "DataSea . zoom" , "Can' t find node "+name+" . " ) ; 

} 

} // end zoom 
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** method word_whats 
*/ 

public void whats (String [] words, int num_words) { 
String wordl=null, word2=null, AnswerStr; 
Node nodel, node2, child; 
int index, size, i; 

if (num_words<3) { 

GUI. WARNING (0, "whats" , "Need three words, returning."); 

return; 

} 

if (0 < (index ■ words [1] . indexOf ("' s" )) ) { 

wordl = words [1] . substring (0, index) ; // whats BOB'S hair 
nodel = find_node_named (wordl) ; 

} 

else { 

GUI .WARNING (0, "whats", "No possessive") ; 
return ; 

} 

word2 - words [2] ; 

node2 = f ind_node_named (word2) ; 

GUI. P(0, "whats", "Using wordl=" +wordl+" , 

word2 = " +word2 + " [ " +words [ 2 ] + " ] [ » +node2 . Name+ " ] 11 ) ; 

if (nodel==null) { 

GUI .WARNING (0, "whats" , "nodel is null, returning."); 

return ; 

} 

if (node2==null) { 

GUI. WARNING (0, "whats", "node2 is null, returning."); 
return; 

} 

// So, now we have two valid nodes. Find node between them. 

size = nodel . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (nodel . get NodeAtLink ( i) ) ; 
if (child == node2 .get Parent () ) { 

GUI .P(0, "whats" , AnswerStr "What ' s "+words [1] +" " +words [2 ]+":") ; 
gui .global_str [gui . global_str_size=0] = AnswerStr; 
AnswerStr=" ANSWER: --> "+child.Name+" is "+words[l]+" 

"+words [2] +" : " ; 

GUI . P (0, "whats" , AnswerStr) ; 

gui .global_str [gui . global_str_size=l] = AnswerStr; 
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gui .global_str [gui .global_str_size=2] - 



} 

} 

} // end whats 
/* ★ 

** store_string_into_global_str 
* * 

*/ 

public void store_string_into_global_str (String str) { 
gui .global_str [gui .global_str_size++] = str; 
} // end store_string_into_global_str 
/** 

** method word_trace 
*/ 

public void word_trace (String [3 words, int num_words) { 
Node nodel, node 2 ; 
Node child; 
int i ; 

if (num_words==l) 

nodel = gui . SavedNode ; 

else 

nodel = find_node_named (words [1] ) ; 
if (nodel == null) { 

GUI .WARNING (0, "word_t race" , "No node given or saved for nodel") ; 
return ; 

} 

node2 = gui . lastNode; 
if (node2==null) { 

GUI .WARNING (0, "word_t race" , "Need a lastNode"); 

return ; 

} 

GUI . P (0 , "word_trace" , "Tracing from <"+nodel.Name+"> to < " +node2 . Name+" >" ) ; 

boolean Saved_S top Spread = nodel . StopSpread; // Temporarily change it 
nodel . St opSpread = true; 

store_string_into_global_str ( "Explaining why <"+node2 .Name+" > is enhanced:"); 
set_dist_start (node2) ; // set dist from node 2 , trace back from nodel 
trace (nodel , node 2 ) ; 

set_dist_start (POV) ; // restore dist's 
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nodel . StopSpread - Saved_S top Spread; // Restore it 
return ; 

} // end word_trace 
/* * 

** trace call traceback on all children with path to POV 
* * 

*/ 

public void trace (Node nodel, Node node2) { 
int i, size; 
Node child; 
Link link=null; 
String str-"" ; 

if (nodel==null) { 

gui. WARNING (0, "trace" , "nodel is null."); 
return ; 

} 

if (node2==null) { 

gui . WARNING ( 0 , "trace " , "node2 is null."); 

return ; 

} 

// nodel . set_mag (Node . MAX_MAG) ; 
// nodel . isSelected = true; 

// for children 

size = nodel . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (nodel .getNodeAt Link (i) ) ; 
if (child. dist -1) { 

if (child. hasSmallerDistThan (nodel) && child. mag>=Node ,MED_MAG) { 
link = nodel .get Link (i) ; 

gui .p (str= "trace : node ( "+nodel .Name+" ) has link named 
["+link.Name+"] ... ") ; 

store_string_into_global_str (str) ; 

gui .p (str=" trace: ... to node ( "+child . Name+" ) " ) ; 

store_string_into_global_str (str) ; 
trace (child, node2) ; 

> 
} 

} 

// end for children 



} // end trace 



/ 
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public void traceback (Node nodel, Node node2) { // mag and select paths back to 
POV 

Node parent; 
String str; 
int i, size; 
Node child; 
Link linksnull; 

// store__string_into_global_str (str) ; 

//gui . global_str [gui .global_str_size++] = "Working on Node=" +nodel .Name; 

if (nodel == null) 
return ; 

nodel . set_mag (Node . EMPHAS I Z ED_MAG ) ; 

// for children 

size = nodel . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (nodel .get NodeAt Link (i) ) ; 

if (child. dist != -1) { // That is, there is a path to POV from here ... 
if (child. dist < (nodel . dist-0 . 0001) ) { 
link = nodel .getLink (i) ; 

System, out .println( 11 <"+nodel .Name + ">( "+nodel . dist + ") 

->"+link .Name+" > < " +child .Name+" > ( " +child . dist+" ) ") ; 

traceback (child, node2) ; 

} 
} 

} 

return ; 

} // end traceback 
/** 

** method parse_set_cmd set's the mag of a node 
*/ 

public double parse_set_cmd (String [] words, int num_words) { 
double val = 0; 

if (gui . lastNode == null) { 

GUI . P (0, ,, parse_set_cmd" , 

"No lastNode, value gotten is " +GUI . j ava_lang_double . valueOf (words [2] ) ) ; 

} 

if (num_words != 3) { 

GUI. P(0, "parsers et_cmd" , "num_words wrong, = " +num_words) ; 
return (val) ; 

} 



PATENT 



else { 

val = (double) (GUI . java_lang_double . valueOf (words [2] ) ) .doubleValue () ; 
if (words [1] . equals ( "mag" ) ) 

gui . lastNode . set_mag (val) ; 
if (words [1] .equals ("importance" ) ) 

gui . lastNode , importance = val ; 

> 

// GUI . java_lang_double . valueOf (words [2] ) ; 

GUI.P(0, "parse_set_cmd" , "" + ( (double) 1.0 + 

(GUI . java_lang_double . valueOf (words [2] ) ) . doubleValue ( ) ) ) ; 

return (val) ; 

} // end parse_set_cmd 



** print_triplets Print information based on triplet -configurations 
* * 

*/ 

public void print_triplets (Node node) { 

int i, size, j , jsize; 

Node child=null, grand_child=null ; 

String str; // to put a line of information into 

String desc; // to get or set as Desc of link from AN to DN 

gui . global_str_size = -1; // reset this 

size = node . Links . size () ; 
for (i=0; i<size; i++) { 

child = (Node) (node. getNodeAt Link (i) ) ; 

jsize = child . Links . size () ; 
for (j=0; j<jsize; j++) { 

grand_child = (Node) ( child. getNodeAtLink (j )) ; 

if (grand_child. isAN && child. isDN && child. mag >= Node . MED_MAG) 

{ 

desc = grand_child.get_Desc (child) ; 
if (desc .equals ("") ) 

desc = "is"; 
str = "( "+gui .prec (child. mag, 3)+") 11 

+node . Name+ " ' s " +grand_child . Name+ " " 

+desc+" "+child .Name; 
gui . global_str [++gui . global_str_size] = str; 
GUI . P (0 , "print_triplets" , 
gui .global__str [gui .global_str_size] ) ; 

> 

} 

} 
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return; 

} // end print_triplets 



/** 

** print_blanks 
* * 

*/ 

10 public void print_blanks (int number_of_blanks) { 

int i ; 

for (i=0; i<number_of _blanks ; i++) { 
System. out .print ( " " ) ; 



15 



return; 

} // end print_blanks 



20 /** 

** print 
* * 

*/ 

public void print () { 

2 5 int i, size; 

Link link=null; 
String s=""; 
Node child; 

3 0 if (POV == null) 

return; 



size = POV. Links . size () ; 
35 for (i=0; i<size; i++) { 

child = POV.getNodeAtLink(i) ; 
if (child. isAN && Igui.drawAN) 

else { 

40 link = POV. get Link (i) ; 

s = "--> ["+child.Name+ 1 ' ( "+child.mag+" ) ( "+link .Name+" ) 3 " ; 
s = s + " 11 ; 

System. out .print ( s . substring (0,20) ) ; 
print_r(POV, child, 1) ; 
45 } 
} 

return; 

} // end print 

50 



-437- 



PATENT 



/*• 

** print_r 
*/ 

public void print_r (Node parent, Node child, int level) { 

int i, size; 

Node grand_child; 

Link link=null; 

int count =0; 

String s; 

if (parent == null) 

return ; 
if (child == null) 

return; 

size = child. Links . size () ; 
for (i=0; i<size; i++) { 
grand_child = child . getNodeAt Link ( i) ; 
if ( (grand_child != parent) 

Sl&. (grand_child.dist > child. dist ) ) { 

if (child. isAN && Igui.drawAN) 

else { 

if (grand_child.mag > Node . BIG_MAG) 
{ 

if (++count > 1) 

printjblanks (20* level) ; 
link = child. getLink (i) ; 
s - " [ ,1 +grand_child.Name+ n 
( " +grand_child . mag+ " ) ( " +link . Name+ " ) 1 " ; 
s = s + " 

if (child. mag > Node . BIG__MAG) {// See if the prior node is big 

System. out .print ( s . substring (0,20) ) ; 
printer (child, grand_child, level+1) ; // Recurse w/ 

} 

else { 

System. out .print (" "+ s . substring (0, 20) ) ; 

print_r (child, grand_child, level); // Recurse w/o 

} 
} 



also 



increment 



increment 



} 
} 
} 

if (count — 
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System. out .println( "") ; // Only carriage return when no valid children 

exist 
return; 

} // end printer 



I * * 

** method print 
*/ 

public void word_print (String [3 words, int num_words) { 

int i, size, max_dist=4; 

Node node, tn, saved_node=null ; 

double saved_mag=0; 

/******************************* 

node = gui . lastNode ; 
******************************/ 

i f ( num_words = = 1 ) 

node = gui . lastNode ; 

else 

node = find_node_named (words [1] ) ; 
if (node == null) { 

GUI .WARNING (0, "DataSea. print", "No node to start on."); 
return; 

} 

// So, continue . . . 

// PRINT TRIPLETS 
print_triplets (node) ; 

if (GlobalVec == null) 

GlobalVec = new Vector ( ) ; 

else 

GlobalVec . removeAll Elements ( ) ; 

store_ANs_r (node, max_dist, 0); // this puts all the ANs within dist=max_dist 
into the GlobalVec 

size = GlobalVec . size () ; 
for (i=0; i<size; i++) { 

tn m (Node) (GlobalVec .element At (i) ) ; 
if (tn.mag > saved_mag) { 

if (saved_node != null) 
saved_mag = tn.mag; 
saved__node = tn; 
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} 

} 

// now, saved_mag and _node have the biggest AN within max_dist 
if (saved_node==null) { 

GUI - WARNING ( 0 , "word_print " , "Didn 1 1 process mag's well, saved_node == 

null") ; 

return ; 

} 

else 

GUI.P(0, "words_input" , "Max AN mag of " +saved_node . Name+" is 
"+saved_node .mag) ; 

// gui .global_str_size = -1; used by print_triplets also 

System . err . print In ( " ===========================:==:==================== " ) ; 

System. err .println(" Predominant Categories from "+ save d_node .Name) ; 

gui .global_str [++gui .global_str_size] = "Predominant Categories from 

" +saved_node . Name ; 

size = saved_node . Links . size () ; 

for (i=0; i<size; i++) { 

tn = (Node) (saved_node .get Node At Link (i) ) ; 

if (tn.isAN && tn.dist <= saved_node . dist && tn.dist > gui . lastNode .dist) 

{ 

System . err . print ( " "+saved_node .Name) ; 

gui .global_str [++gui . global_str_size] = " 

» +saved__node . Name ; 

go_backwards_r (tn) ; 
System. err .print In ("" ) ; 
} 

} 

if (POV != null) { 

// Look at high-mag children and grandchildren of current POV 

// for children of POV 

int i_size, j_size, j ,- 

Node child=null, grand_child=null ; 

gui .global_str [++gui .global_str_size] - " POV Children and Grandchildren:"; 

i_size = POV. Links . size () ; 
for (i=0; i<i_size; i++) { 

child = (Node) (POV. getNodeAt Link (i) ) ; 
if (child. mag >= Node . BIG_MAG) 

gui .global_str [++gui .global_str_size] = " 
"+child.Name+" ( " +child .mag+" ) " ; 

j_size = child. Links . size () ; 
for (j=0; j<j_size; j++) { 

grand_child = (Node) (child . getNodeAt Link ( j )) ; 
if (grand_child.mag >= Node . BIG_MAG) 
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gui .global_str [++gui .global_str_size] ■ 11 
" +grand_child . Name+ " ( " +grand_child . mag+ " ) " ; 

} 

} 

// en d for children of POV 

} 

System . out . print In ( "TEST print_upstream ( ) " ) ; 

print_upstream ( (Node) null, node) ; 

System, out . print In ("TEST print_upstream ( ) done ") ; 

System. err .print In (" 5================================================= ») ; 

return ; 

} // end print 



I -k * 

** go_backwards 
* * 

*/ 

public void gq_backwards_r (Node node) { 
int i, size; 
Node tn; 

System. err .print ( " -> " +node . Name ) ; 

gui .global_str [gui .global_str_size] = gui .global_str [gui .global_str_size] +" -> 
" +node . Name ; 

size = node . Links . size () ; 
for (i=0 ; i<size; i++) { 

tn = (Node) (node .get Node At Link (i) ) ; 

if (tn.isAN && tn.dist < node.dist && tn.dist > gui . lastNode . dist ) 
go_backwards_r (tn) ; 

> 

return; 

} // end go_backwards_r 
/* * 

** store_ANs 
** 

*/ 

public void store_ANs_r (Node node, int max_dist / int this_dist) { 
int i, j, size, tsize; 
Node tn; 

boolean not_found=true; 
this_dist++; 

size = node . Links . size () ; 
for (i=0; icsize; i++) { 



-441- 



PATENT 



tn = (Node) (node .getNodeAtLink (i) ) ; 
not_found - true; 
if (tn.isAN) { 

if (GlobalVec . contains (tn) ) 

not_found = false; 
/***************************************^ 

***** tsize = GlobalVec . size () ; // See if we have it already 

***** for (j=0; j<tsize; j++) { 

***** if ( (Node) (GlobalVec. elementAt ( j ) ) ^= tn) 

***** not_found = false; 

***** } 

***************************************************************************** i 
if (not_found) { 

GlobalVec . addElement (tn) ; 

} 

} 

if ( (this_dist <= max_dist) && node .goesUpstreatnTo (tn) ) // recurse 
store_ANs_r (tn, max_dist, this_dist) ; 

} 

} // end store_ANs 



/* * 

** method word_dump 
*/ 

public void word_dump (String [] words, int num_words) { 
Node node; 

if (num_words==0) { 

GUI .WARNING (0 , "DataSea . word_dump" , "No words received at all . " ) ; 
return; 

} 

if (num_words==l) 

GUI . P(l, "DataSea .word_dump" , "One word received 1 11 + words [0] +" 1 . 11 ) ; 
i f ( num_ words -=2 ) 

GUI . P (1, "DataSea. word_dump" , "Two words received ' "+words [0] +" ' , 
' "+words [1] +" » . ") ; 
if (num_words==3 ) 

GUI . P (1, "DataSea. word_dump" , "Three words received ' "+words [0] +" 1 , 
' "+words [1] +" 1 , * "+words [2] +" ' . " ) ; 

i f ( num_ words = =1 ) 

node = gui , lastNode; 
else 

node = f ind_node_named (words [1] ) ; 
if (node != null) { 

if (words [0] . equals ( "d" ) ) 

gui . dump_node ( 0 , f al se , node ) ; 

else 

gui . dump_node ( 0 , true , node ) ; 
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} 

} // end word_dump 

I it * 

** method undo 
*/ 

public void undo (int levels) { 
int i, size; 
Node tnode; 

GUI. P(l, "undo" ,"Begun, "+levels+" levels."); 
size = node_vec . size () ; 
for (i=0; i<size; i++) 

{ 

tnode = (Node) (node_vec . element At (i) ) ; 
tnode .undo (levels) ; 

} 

} //end undo 



/* * 

** method word_less 
* ********************************************************** 

public void word_less (String [] words, int num_words, int max_dist) { 
Node tn=null; 

if (num_words==l) 

tn = gui . lastNode; 
else 

tn = find_node_named (words [1] ) ; 
if (tn != null) { 

mag(tn, "both", "-"); 

> 

else 

GUI . WARNING ( 0 , "DataSea . word_less " , "Can't find node " +words [1] +" . " ) 
} // end word_less 



/** 

** parse_event_input 
* * 

*/ 

public double parse_event_input (String s) { 
double offset = 0; 

offset = 0; 

if (s . equal slgnoreCase ( "tomorrow" ) ) 
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offset = .01; // was .66 
if (s . equal slgnoreCase ( "today" ) ) 

offset = .01; // was .33 
if (s . equal slgnoreCase ( "yesterday" ) ) 

offset = .01; 
if ( s . equal slgnoreCase ( "noon" ) ) 

offset = (1.0/24.0) *12.0 * 0.33; 
if (s . equal slgnoreCase ( "lpm" ) ) 

offset = (1.0/24.0) *13.0 * 0.33; 
if (s . equal slgnoreCase ( "2pm" ) ) 

Offset = (1.0/24.0)*14.0 * 0.33; 
if (s . equal slgnoreCase ( "3pm" ) ) 

Offset = (1.0/24.0) *15.0 * 0.33; 
if (s .equal slgnoreCase ("4pm") ) 

offset = (1.0/24.0)*16.0 * 0.33; 
GUI . P (1 , "parse_event_input " , " returning "+offset+" for string "+s) ; 
return (offset) ; 



} // end parse_event_input 



** create_event link caller to Event named Name with offset, return Event 
* * 

*/ 

public Node create_event (Node caller, double offset, String Name) { 
int i ; 

double yoffset=0; ; 
Node event_node; 



if (caller==null) { 

GUI .ERROR (0, "DataSea.create_event" , "caller is null"), 
return ( (Node) null) ; 

} 



Name = " "+event_counter++; 



// yoffset cycles up and down to space out overlapping events 
yoffset = 40.0 + (double) (( (1000*off set) % 11D/4); 
GUI . P (1, "create_event" , "Creating event "+Name+", offset=" 
+offset+" / positionX= " 

+ (caller . size_X*off set) +" , yof f set=" +yof f set ) ; 
event_node = new Node (Name, "Event" , " " , (int) (caller . size_X*off set) , 
(int) yoffset, 10,2) ; 



event_node . link (pop . TimeLine) ; 
return (event_node) ; 
} // end create_event 
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J * * 

** TS TimeStamp a node: create event node, link it to arg and "Created" 
* * 

*/ 

public void TS (Node node) { 
int i, size; 
Node ts, created; 

if (node == null) 
return; 

GUI.P(0, "TS" , "TimeStamping " +node . Name ) ; 

if (null == (created = f ind_node_named ( "Created" , "AN"))) { 
GUI . P ( 0 , "TS " , " Creating node 'Created'"); 
created = pop . create_node ( "Created" , "AN"); 
created. link (Root ) ; 

} 

node - pop . create_node ( " "+GUI . current_TS, "Event"); // creates the event 
node . link (created) ; // link to "Created" 

node. link (pop. TimeLine) ; // link to TimeLine 

return; 

} // end TS 



/★* 

** group assumes the mag of distal ANs has been additively increased to 
** emphasize ANs of more relevance to distal DNs . 

** Only group at the level ' target_level ' . 

*/ 

public void group (Node node, int target_level) { 
int i, size; 
Node tnode; 

if (node == POV) { 
gui .pressure_mag /= 3; 

} 

if (node == null) 
{ 

GUI . ERROR ( 0 , » group " , " NULL node " ) ; 

return ; 

} 

GUI.P(0, "group", "level "+target_level) ; 
size - node. Links . size () ; 

if (node.dist < target_level) // we aren't there yet 
for (i=0; i<size; i++) 
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{ 

tnode = node . get NodeAtL ink <i) ; 

if ( tnode. dist > node. dist) // was >=, got infinite recursion w/ 

2 shows 

group (tnode, target_level) ; // recurse 

} 

else 

if (node. dist == target_level) // we are at the target_level 
for (i=0; i<size; i++) 

{ 

tnode = node . get Node At Link (i) ; 
if (tnode. isAN) 

group_onto_biggest_AN (tnode) ; 

} 

if (node == POV) { 
gui .pressure_mag *= 3; 

} 

return; 
} // end group 

/** 

** group_onto_biggest_AN force node near its AN with largest 'mag' 
* * 

*/ 

public void group_onto_biggest_AN (Node node) { 
int i, size; 

Node tnode, temp_AN=null ; 
doub 1 e t emp_AN_mag = 0 ; 

if (node == null) 

{ 

GUI . ERROR (0 , "group_onto_biggest_AN" , "NULL node" ) ; 
return ; 

} 

size = node . Links . size () ; 
for (i=0; i<size; i++) 

{ 

tnode = node . get NodeAtL ink (i) ; 

if (tnode. is AN tnode. mag > temp_AN_mag) { 

temp_AN = tnode; 

t emp_AN_mag = tnode. mag; 

} 

} 

// Presumably we now have the largest connected AN to given node 

if (temp_AN != null) { // force near to AN 

node . x = (gui . random ( ) - 0 . 5 ) + t emp_AN . x ; 
node.y = (gui . random () -0 . 5) + temp_AN.y; 
node . z = (gui . random ( ) - 0 . 5 ) + temp_AN . z ; 

} 
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} // end group_onto_biggest_AN 
/ * * 

* * 1 ink_DN_to_ANs 

* ★ 

* public void link_DN_to_ANs (Node dn_node, Node an__node) { 

* int i, size; 

* Node tnode; 
* 

* if (an_node == null) 

{ 

* size = dn_node.Links.size () ; 

* GUI.P(0, "link_DN_to_ANs l \ " NULL an__node (start), size of 
dn_node is *'+size) ; 

* for (i=0; i<size; i++) 

{ 

* tnode = dn_node .get Node AtL ink (i) ; 

* 1 ink_DN_t o_ANs ( dn_node , t node ) ; 

* return; 

} 

} 

* else if ( ! an_node . isAN) 

{ 

* GUI . P ( 0 , " 1 ink_DN_t o_ANs " , " an_node i s no t 



Type AN") ; 



else 



to " 



return ; 
} 

{ 

dn_node. link (an_node) ; // link() makes sure its not redundant 
size = an_node . Links . size () ; 

GUI . P ( 0 , " link_DN_to_ANs " , " recur sing, linked " +an_node.Narae+" 

+dn__node .Name+" , size of "+an_node.Name+" is "+size) ; 
for (i=0; i<size; i++) 

{ 

tnode = an_node . getNodeAtLink ( i ) ; 
1 ink_DN_t o_ANs ( an_node , tnode ) ; 
return ; 

> 

} 



* } // end link_DN_to_ANs 



** app_email 
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*/ 

public void app_email () { 
int i ; 

Node app_node, to_string_node, f rom_string_node , to_node, from_node, 
ema i 1 f orm_t ext_node ; 

to_node - getNodelnNeighborhood ( " email " ) ; 

f rom_node = pop . create_node ( "rocky@tallis .com", " DN " , "email address for 
Rocky Nevin" ) ; 

if (to_node == null) { 

GUI .WARNING (0, "app_email" , "getNodelnNeighborhood didn't return a 

good node " ) ; 

return; 
} 

app_node = new Node ( " EMF " , " Form" , " EMail Form", 100, 100, 40, 80); 

emailform_text_node = new Node ( "text" , "DN" , "EMail text",0, 0, 5, 1) ; 

to_string_node = new Node ( "To : " , "DN" , " " , 0 , 0, 5,1); 

f rom_string_node = new Node ( 11 From : " , "DN" , 11 " , 0 , 0 , 5,1); 

Root . 1 ink { app_node ) ; 

app_node . 1 ink ( to_st r ing_node ) ; 

app_node . link ( f rom__string_node) ; 

app_node . link (emailf orm_text_node) ; 

app_node ■ link (to_node) ; 

app_node . link ( f rom__node) ; 

// to_string_node . link (to_node) ; 

/ / f rom_s t r ing_node . 1 ink ( f r om_node ) ; 

// emailf orm_text_node . link (app_node) ; done above 

// the Y offset starts at the bottom and goes up, as y does in data space 

set_child_j?osition (app_node, to_string_node, 0.01, 0.8); 

set_child_position (app_node, f rom_string_node, 0.01, 0.9); 

set_child_position (app_node, to_node, 0.4, 0.8); 

set__child_position (app_node , f rom__node , 0.4, 0.9); 

// set_child_position (to_string_node, to_node, 1.4, 1) ; 

// set_child_position (f rom_string_node, from_node, 2.0, 1) ; 

set_child_position (app_node, emailf orm_text_node, 0.01, 0.5); 

GUI . P (1 , "app_email" , "Done, select EmailForm now, in VR mode"); 

needdistUpdate = true; 

reset_and_zoom ( " EMF 11 ) ; 
return; 

} // end app_email 
/* * 

* * r e s e t_and_z oom 

* * 
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*/ 

public void reset_and_zoom (String target_name) { 
Node target_node; 

target_node = find_node_named (targe t_name) ; 
if ( targe t_node == null) { 

GUI . WARNING ( 0 , ,, reset_and_zoom" , "can't find target node named 
"+target_name) ; 

return; 

} 

needdi st Update = true; 

absorb_POV (false) ; // This stops the thread via gui . StopThreadRequest 
gui . mode_ob j . set_render_mode ( " VR" ) ; 
mag (targe t_node, "both", " + "); 

return; 

} // end reset_and_zoom 
/** 

* * ge tNode InNe ighborhood 
** 

*/ 

public Node getNode InNe ighborhood (String target_name) { 
Node ret_node = null, tn=null, target_node=null ; 
int size =0, i; 

GUI . P (0 , "getNode InNe ighborhood" , "Looking for "+target_name) ; 

// CHECK REFERENCE POINT 

if (gui . lastNode == null) { 

GUI. WARNING (1, " getNode InNe ighborhood " , "gui. lastNode is null"); 
return (ret_node) ; 

} 

target_node = find_node_named (targe t_name) ; 

// CHECK TARGET POINT 

if ( targe t_node == null) { 

GUI .WARNING (0, "get Node InNe ighborhood" , "targe t_node is null"); 

return ( (Node) null) ; 

} 

set_Tdist_Start (gui. lastNode) ; // NEED FOR SETTING VARIABLE ' TDIST 1 
size = target_node . Links . size () ; 
for (i=0; i<size; i++) { 

tn = target_node .get NodeAt Link (i) ; 

GUI. P(l, "getNode InNe ighborhood", " i is "+i+" , tn=" +tn . Name+" , 
Type="+tn.Type+" , Tdist="+tn. dist) ; 

if ((tn.isAN) && (tn . dist==target_node . dist-1 ) ) { 
ret_node = tn; // Got it 
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10 



35 



40 



50 



GUI . P (0, "getNodelnNeighborhood" , " Got it : 



" +ret_node . Name ) ; 

} 

} 

return (re t_node) ; 

} // end getNodelnNeighborhood 



/** 

15 ** set_childjposition 

** 

*/ 

public void set_child_position (Node parent, Node child, int offsetx, int 
offsetY) { 

2 0 double theta, delta_x, delta_y; 

Link link; 

if (parent == null) { 

GUI . ERROR ( 0 , " set_child_j)OS it ion ", "parent is null"); 
2 5 return; 

} 

if (child == null) { 

GUI . ERROR ( 0 , 11 set_child_posit ion" , "child is null") ; 
return ; 

30 } 

child . setX ( 11 set_child_position, parent = " +parent . Name , 
offsetx, 
offsetY) ; 



link - parent . getLinkTo (child) 
link. set Links VRparms (child) ; 

} // end set_child_position 



** set_child_position 



45 */ 



public void set_child_position (Node parent, Node child, double 
f raction_width, double f raction_height) { 
double theta, delta_x, delta_y; 
Link link; 
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if (parent null) { 

GUI.ERROR(0, "set child position" , "parent is null") ; 

return; 
} 

5 if (child == null) { 

GUI.ERROR(0, " set_child_posit ion ", "child is null"); 
return; 

} 

10 // child. setX("set_child_posit ion, parent ="+parent .Name, 

// (parent . size_X * fraction_width) , 

// (parent . size_Y * ( f raction_height-l ) ) ) ; 

delta_x = fraction_width - 0.5; 
15 delta_y = f raction_height - 0.5; 

theta = gui . get_angle (delta_x, delta_y) ; 

child. set_theta_off set (theta, "Called by set_child_position" ) j 
link = parent .getLinkTo (child) ; 
20 link . set LinksVRparms (child) ; 

} // end set_child_position 

} // End of class DataSea 

25 
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import j ava . lang . * ; 
/* 

* This is Link. j ava by Rocky Nevin 

* ©version 0.4, 3/12/98 



■7 



public class LinkObj extends Object { 
10 String Name; 

String Type; 

String 

Description; 

double CS; 
15 Node Node; 

Node NodeL, NodeR; 

LinkObj NextLink; 

long Link_ID; 

20 /** 

* * LinkObj CONSTRUCTORS 



2 5 public LinkObj () { 

CS = 1; 

// RECURSES this. Node = new Node ( ) ; 
} 

3 0 } // End of class LinkObj 
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/** 

* 

* This is VRObj.java 

* <pre> 

* </pre> 

* ©version 0.1, 8/9/98 Begun, based on prior program, G.java for DataSea 

* ©author Rocky Nevin 
* 

*/ 

import j ava . lang . * ; 
// 

// VR object holds info about the visual appearance on the screen, 
// as part of a Node object 

public class VRObj extends Object { 

double x, y, z; 

double dx=5, dy=5, dz=5; // Size of object 

double px, py, pz; // Pressure forces to move nodes 

double theta; // The angle from a horizontal line # left to right 

double radius; // The radius of this ob j 1 s sphere of influence 

String Appearance; 

/* * 

** VRObj CONSTRUCTORS 
** 

*/ 

public VRObj () { 

} 



} // End of class VRObj 
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/* 

* nsr_position_node 

V 

public boolean nsr_position_node (Node parent, Node node) { // 
boolean local_recurse=true; 

if (parent ==null) { 

P (3 , "nsr_position_recursive" , "NULL parent to node " +node . Name ) ; 
return (false) ; 

} 

P (3, "nsr_position_node" , "Starting on "+parent .Name+" -> " +node . Name ) 

if (node .Type .equals ("FAB" ) ) { 

local_recurse=nsr_position_FAB (parent , node) ; 
if (node.VR__node 1= VR_FAB_NODE) 

P (0, "nsr_position_node" , "WRONG VR_FAB connection" ) ; 

} 

else if (node .Type . equals ( "MACH" ) ) { 

local_recurse=nsr_position_MACH (parent, node) ; 

} 

else if (node. Type. equal s ("DIR") ) { 

local_recurse=nsr_position__DIR (parent , node) ; 
} 

else if (node. Type. equals ("DIR_ENTRY") ) { 

local_recurse=nsr_position_DIR_ENTRY (parent, node) ; 
} 

else if (node. Type. equals ("TIMELINE") ) { 

local_recurse=nsr_position_TIMELINE (parent . node) ; 

} 

else { 

node . x=parent . x + 50 + node.X; 

node . y=parent . y + 50*node . ChildNum + node.Y; 

node . z =parent . z ; 

} 

return (local_recurse) ; 

} // end nsr_position_node 

/* * 

* method nsr_position_FAB a NSR function 
*/ 

boolean nsr_jposition_FAB (Node caller, Node node) { 
node . x=caller . x+50 ; 
node . y^caller . y ; 
node . z=caller . z ; 

P (3 , "posit ion_FAB" , "Starting on "+caller.Name+" -> " +node . Name ) ; 
return (true) ; 
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} // end position_FAB 



/** 

* method nsr_position_MACH a NSR function 
*/ 

boolean nsr_position_TIMELINE (Node caller, Node node) { 

node .x+=0 .5* (caller .x+node .X-node .x) ; 
node .y+=0 .5* (caller .y+node. Y-node .y) ; 
// node . z+=0 . 5* (caller. z+node . Z-node . z) ; 

P (3, "nsr_pos it ion_TIMELINE" , "Starting on "+caller .Name+" -> "+ node . Name ) ; 
return (true) ; 

} // end nsr_position_TIMELINE 
/* * 

* method nsr_position_MACH a NSR function 
*/ 

boolean nsr_position_MACH (Node caller, Node node) { 



node.x+=0 .5* (caller . x+node . X-node . x) ; 
node.y+=0 . 5* (caller . y+node .Y-node .y) ; 
// node. z+=0 .5* (caller. z+node. Z-node. z) ; 

P (3 , ,, nsr_position_MACH" , "Starting on " +caller .Name+" -> " +node . Name ) ; 
return (true) ; 

} // end nsr_position_MACH 



* method nsr_position_DIR a NSR function 
*/ 

boolean nsr_position__DIR (Node caller, Node node) { 
int i, size; 
Node tnode; 

P (3 , "posit ion_DIR" , "Starting on "+caller .Name+" -> "+ node . Name ) ; 

node . x=caller . x+5 0 ; 
node .y=caller .y; 
node . z=caller . z ; 

size = node . Links . size () ; 

for (i=0; i<size; i++) { // check dist of all children, position if appropriate 
tnode = node . getNodeAtLink ( i) ; 
if (tnode. dist == 1+node.dist) 

nsr_render_D I REENTRY (node, tnode) ; 

) 

return (true) ; 

} // end position_DIR 



/* * 

* method nsr_position_DIR_ENTRY a NSR function 
*/ 

boolean nsr_position_DIR_ENTRY (Node caller, Node node) { 

String Name; 

int column_num=0 ; 

Name=node . Name ; 

// CORRECT THIS PART 

i f (Name . equal s ( " Name " ) ) 

col umn_num = 1 ; 
else if (Name. equals ("Phone" ) ) 

column_num=2 ; 
else if (Name . equals ( "Address" ) ) 

column_num=3 ; 

node .x=caller . x+50*column_num; 
node .y=caller . y; 
node . z=caller . z ; 

P (3 , "posit ion_DIR_ENTRY" , "Starting on " +caller . Name+ " -> "+node. 
return (true) ; 

} // end position_DIR_ENTRY 
j ■* * 

* method nsr_render_FAB a NSR function 
*/ 

boolean nsr_render_FAB (Node caller, Node node) { 
Point ChildPoint=new Point () ; 
int width, height; 

map(node.x, node.y, ChildPoint) ; 
width=(int) (node . dx*magscale* node .mag) ; 
height=(int) (node . dy*magscale*node .mag) ; 

graphics .drawRect (ChildPoint .x, ChildPoint . y, width, height); 
graphics .drawstring ( "FAB" , ChildPoint . x, ChildPoint . y) ; 

P ( 3 , " nsr_render_FAB " , node . Name+ " ( " +node . x+ " , " +node . y+ " ) " ) ; 

return (true) ; 

} // end nsr_render_FAB 

/* * 

* method nsr_render_TIMELINE a NSR function 
*/ 

boolean nsr_render_TIMELINE (Node caller, Node node) { 
Node tnode; 
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Point ChildPoint=new Point (); 
int width, height; 

map(node.x, node.y, ChildPoint); 
width=(int) (node .dx* mags c ale* node .mag) ; 
height=(int) (node .dy* mags c ale* node .mag) ; 

P(3, "nsr_render_TIMELINE" , node . Name + 11 ( 11 +node . x+ " , " +node . y + " ) 

graphics .drawRect (ChildPoint .x, ChildPoint . y, width, height) 
graphics . drawstring (node .Name, ChildPoint . x, ChildPoint .y) ; 
return (true) ; 
} // end render_TIMELINE 

/** 

* method nsr_render_MACH a NSR function 
*/ 

boolean nsr_render_MACH (Node caller, Node node) { 
Node tnode; 

Point ChildPoint =new Point (); 
int width, height; 

map (node. x, node.y, ChildPoint); 
width=(int) (node . dx*magscale*node .mag) ; 
height=(int) (node .dy*magscale*node .mag) ; 

P ( 3 , "nsr_render_MACH" , node . Name+ 11 ( " +node . x+ " , " +node . y+" ) " ) ; 

graphics . drawRect (ChildPoint .x, ChildPoint .y, width, height) 
graphics .drawstring (node .Name, ChildPoint .x, ChildPoint .y) ; 
return (true) ; 
} // end render_MACH 

/* * 

* method nsr_render_DIR a NSR function 
*/ 

boolean nsr_render_DIR (Node caller, Node node) { 
Point ChildPoint=new Point (); 
int width, height; 

map(node.x, node.y, ChildPoint); 
width=(int) (node . dx*magscale*node .mag) ; 
height=(int) (node .dy*magscale * node .mag) ; 

graphics .drawRect (ChildPoint .x, ChildPoint . y, width, height) 

P(3, "nsr_render_DIR" , node .Name +" ( " +node . x+ " , "+node.y+") 11 ) ; 

return (true) ; 

} // end nsr_render_DIR 



* method nsr_render_D I REENTRY a NSR function 
*/ 

boolean nsr_render_DIR_ENTRY (Node caller, Node node) { 
Point ChildPoint=new Point (); 
int width, height; 

map(node.x, node.y, ChildPoint); 
width=(int) (node .dx* mag scale* node .mag) ; 
height=(int) (node .dy*magscale*node .mag) ; 

graphics .drawRect (ChildPoint .x, ChildPoint .y, width, height); 

P ( 3 , "nsr_render_D I REENTRY" , node . Name + " ( " +node . x+ 11 , " +node . y + " ) 
return (true) ; 

} // end nsr_render_DIR_ENTRY 
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WHAT IS CLAIMED IS: 

1. A method for creating a highly connected network 
of nodes indicative of computer- readable data, 
including the steps of: 

5 capturing data contained in at least one legacy- 

database; and 

structuring the captured data as a set of linked 
nodes, wherein each of the nodes includes at least 
one link to another one of the nodes, and the set of 
10 linked nodes is structured such that when one of the 

nodes is designated as a point of view, 
representations of the nodes can be displayed as a 
sea of node representations . 



15 2. The method of claim 1, also including the steps 

of: 

designating one of the nodes as the point of view; 
and 

displaying said representations of the nodes as said 
2 0 sea of node representations, viewed from said point 

of view. 



3. The method of claim 1, also including the step of 
implementing a query, said step of implementing the 
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query including the steps of: 

(a) establishing a first point of view and displaying 
said representations of the nodes as a first sea of 
node representations whose point of view is said 

5 first point of view; 

(b) invoking a command which determines the query; 
and 

(c) in response to the command, displaying a changed 
sea of node representations which emphasizes 

10 information having greater relevance to the query and 

deemphasizes information having less relevance to the 
query. 



4. The method of claim 3, wherein step (c) is 
15 performed in a manner that is tolerant to imprecision 

and errors in the query. 



5. The method of claim 3, wherein the command 
specifies key words, and step (c) is performed in 
2 0 such a manner that the changed sea of node 

representations facilitates access to relevant data 
containing none of the key words. 



6. The method of claim 3, wherein step (c) is 
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performed in such a manner that the changed sea of 
node representations facilitates finding of data that 
is similar to known data, without specifying 
characteristics of said data that is similar to known 
data . 



7. The method of claim 3, wherein step (c) includes 
the step of displaying a smoothly changing sea of 
node representations which changes from the first sea 
of node representations to the changed sea of node 
representations with smooth changes in visual state, 
so as to provide information to a user regarding 
speed at which displayed node representations change 
and regarding which parameters of displayed node 
representations change . 



8. The method of claim 2, wherein said sea of node 
representations includes virtual reality renderings. 



9. The method of claim 1, wherein the nodes have 
identical structure but at least some of the nodes 
have different content . 



10. A method for interactively exploring, accessing, 
and visualizing information in a highly connected 
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network of nodes, said method including the steps of: 

determining a set of linked nodes, each of the nodes 
including at least one link to another one of the 
nodes, wherein the set of linked nodes is structured 
5 such that representations of the nodes can be 

displayed as a sea of node representations; and 

designating one of the nodes as a point of view, 
linking a number of the nodes directly to the point 
of view, and calculating individual link distances 
10 from each of at least some of the nodes to the point 

of view, thereby determining a hierarchical network 
of the nodes which is amenable to visualization. 



11. The method of claim 10, wherein there are cyclic 
15 loops in linkages between at least some of the nodes 

directly and the point of view. 



12. The method of claim 10, also including the step 
of: 

20 adding or deleting at least one link of at least one 

of the nodes, thereby changing the hierarchical 
network . 



13. The method of claim 10, also including the step 
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Of: 

displaying representations of the nodes as a sea of 
node representations, viewed from said point of view. 



5 14. The method of claim 10, wherein the hierarchical 

network of the nodes determines a connection strength 
of each of a set of linkages between at least some of 
the nodes, and a magnitude of each of at least some 
of the nodes, and wherein position and size of each 
10 of the nodes in said visualization is determined in 

accordance with each said connection strength and 
magnitude . 



15. The method of claim 10, wherein said sea of node 
15 representations includes virtual reality renderings. 



16. The method of claim 10, wherein each of the nodes 
has a node type, each of said link distances is 
determined by a function of the number of links 
2 0 between a pair of the nodes and the node type of each 

node of said pair, and the hierarchical network has a 
hierarchical tree structure. 



17. The method of claim 10, also including the step 
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of: 

implementing a user interface which displays 
representations of at least some of the nodes, 
wherein the user interface allows emulation of 
5 application programs by linking appropriate ones of 

the nodes . 



18. The method of claim 10, also including the step 
of: 

10 implementing a user interface which displays 

representations of at least some of the nodes, 
wherein the user interface implements a simple 
command and query syntax which is amenable to a voice 
interface . 

15 

19. A method, including the steps of: 

structuring computer-readable data as a set of linked 
nodes, wherein each of the nodes includes at least 
one link to another one of the nodes, each of the 
20 nodes has a name associated therewith, and the set of 

linked nodes is structured such that when one of the 
nodes is designated as a point of view, 
representations of the nodes can be displayed as a 
sea of node representations; and 

25 maintaining information specific to each of the 
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nodes, including by maintaining the name of each of 
the nodes such that each said name is searchable and 
retrievable . 



5 20. The method of claim 19, wherein the information 

specific to each of the nodes, includes a magnitude 
and connection strength of a link between said each 
of the nodes and at least one other one of the nodes. 



10 21. A method for associating nodes of a set of linked 

nodes, wherein each of the nodes contains computer- 
readable data, at least one link to another one of 
the nodes, and a link identification for each event 
which links said each of the nodes to another one of 

15 the node, and wherein the set of linked nodes is 

structured such that when one of the nodes is 
designated as a point of view, representations of the 
nodes can be displayed as a sea of node 
representations, said method including the steps of: 



2 0 storing, in an abstract node, a meaningful context 

common to a set of the nodes, wherein the abstract 
node is linked to each of the nodes in the set; and 

sharing a single link identification among the nodes 
in said set, thereby associating the links that are 
25 identified by said single link identification. 
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22. The method of claim 21, also including the step 
of modulating a connection strength of the links that 
are identified by said single link identification, 
thereby sensitizing or desensitizing said links to 
5 further operations. 



23. A method of establishing a set of linked nodes 
from text data, wherein each of the nodes includes at 
least one link to another one of the nodes, and the 
10 set of linked nodes is structured such that when one 

of the nodes is designated as a point of view, 
representations of the nodes can be displayed as a 
sea of node representations, said method including 
the steps of : 



15 creating a full -text -node containing the text data; 

discard selected words from the text data, thereby 
determining a set of remaining text, and creating a 
node for each word of the remaining text ; 

linking the full -text -node to each node representing 
2 0 one said word of the remaining text. 



24. A method of establishing a set of linked nodes 
from data organized in rows and columns with column 
headings, wherein each of the nodes includes at least 
25 one link to another one of the nodes, and the set of 

linked nodes is structured such that when one of the 
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nodes is designated as a point of view, 
representations of the nodes can be displayed as a 
sea of node representations, said method including 
the steps of: 

5 representing each of the column headings by an 

abstract node; 

representing each cell of the data by a data node; 

establishing links between each said abstract node 
and each said data node that corresponds to a cell in 
10 a column whose column heading is represented by said 

abstract node; and 

establishing links between each said data node that 
corresponds to a cell in one of the rows. 



15 25. A method of establishing a set of linked nodes 

from files linked by HTML references, wherein each of 
the nodes includes at least one link to another one 
of the nodes, and the set of linked nodes is 
structured such that when one of the nodes is 

20 designated as a point of view, representations of the 

nodes can be displayed as a sea of node 
representations, said method including the steps of: 

establishing data nodes, each of the data nodes 
representing each of the files; 

25 establishing links from said data nodes to terms 
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found in the files. 



26. The method of claim 25, wherein each of the terms 
is one of a set of selected tag values such as meta- 
5 tags or heading values. 



27. The method of claim 25, also including the step 
of: 

establishing links to abstract nodes representing 
10 suffixes of the files. 



28. A method of establishing a set of linked nodes 
from files from computer file system, wherein each of 
the nodes includes at least one link to another one 
15 of the nodes, and the set of linked nodes is 

structured such that when one of the nodes is 
designated as a point of view, representations of the 
nodes can be displayed as a sea of node 
representations, said method including the steps of: 

20 establishing links between data nodes representing a 

file directory and data nodes representing files or 
sub-directories in the file directory. 
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29. A method for retrieving data of interest from a 
network of linked nodes, wherein each of the nodes 
includes data and at least one link to another one of 
the nodes, and the set of linked nodes is structured 
5 such that when one of the nodes is designated as a 

point of view, representations of the nodes can be 
displayed as a sea of node representations, said 
method including the steps of: 

(a) establishing a first point of view and displaying 
10 said representations of the nodes as a first sea of 

node representations whose point of view is said 
first point of view; 

(b) invoking a command which determines a query; and 

(c) in response to the command, displaying a changed 
15 sea of node representations which emphasizes 

information having greater relevance to the query and 
deemphasizes information having less relevance to the 
query. 



20 30. The method of claim 29, wherein step (c) includes 

the step of : 

tracing backwards from a target node to the first 
point of view by following all links from the target 
node to intermediate nodes having lesser magnitude, 
25 and displaying representations of said intermediate 

nodes . 
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31. The method of claim 29, wherein each of the node 
representations is displayed in a position that 
depends on parameter values of the corresponding 
5 node, and wherein step (c) includes the step of: 

gradually changing the displayed position of at least 
one of the node representations, thereby showing a 
transition between an initial state and a final state 
of said one of the node representations. 

10 32. The method of claim 31, wherein step (c) includes 

the step of: 

operating on parameters indicative of pushing or 
pulling of the displayed position of said at least 
one of the node representations relative to displayed 
15 positions of others of the node representations. 



33. The method of claim 29, wherein step (c) includes 
the step of: 

traveling distally and upstream from a target node, 
20 finding the first abstract node linked to the target 

node and emphasizing a displayed representation of 
said first abstract node, thereby abstracting the 
target node . 
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34. The method of claim 33, wherein step (c) also 
jincludes the step of: 

abstracting the target node at a higher level, by 
traveling from said first abstract node to directly 
5 linked abstract nodes which are both distal to and 

upstream of said first abstract node. 



35. The method of claim 29, wherein step (c) 
includes the step of: 

10 emphasizing displayed representations of abstract 

nodes linked to a target node which have not been 
recently visited by a query operation. 



36. The method of claim 29, wherein step (c) 
15 includes the step of: 

magnifying displayed representations of nodes based 
on similarity of each of the nodes to a chosen node, 
by magnifying displayed representations of data nodes 
linked to at least some of a set of abstract nodes 
2 0 linked to the chosen node. 



37. The method of claim 29, wherein step (c) 
includes the step of: 
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modifying a potentiation parameter of at least one of 
the nodes . 



38. A method of displaying node representations 
5 indicative of a network of linked nodes, wherein each 

of the nodes includes data and at least one link to 
another one of the nodes, and the set of linked nodes 
is structured such that when one of the nodes is 
designated as a point of view, representations of the 
10 nodes can be displayed as a sea of node 

representations, said method including the steps of: 

designating one of the nodes as the point of view; 
and 

displaying said representations of the nodes as said 
15 sea of node representations, viewed from said point 

of view, with visual emphasis assigned to each of the 
node representations dependent on parameters of each 
of the nodes, said parameters including connection 
strength of a link between said each of the nodes and 
2 0 at least one other one of the nodes. 



39. The method of claim 38, wherein said parameters 
also include polarization of the link between said 
each of the nodes and at least one other one of the 
2 5 nodes. 
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40. The method of claim 38, wherein said parameters 
also include the minimum number of links between said 
each of the nodes and at least one other one of the 
nodes . 
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ABSTRACT OF THE DISCLOSURE 

A computer implemented method of storing, 
manipulating, assessing, and displaying data and its 
relationships, and a computer system (with memory) 
programmed to implement such method. The data is 
stored into nodes, and visualized as a sea of linked 
nodes . 
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